具有索引匹配的 Excel VBA

Question

一直在尝试解决以下问题，但到目前为止没有运气，寻求您的帮助：

1. vba 公式返回额外的两个“@”，如何修复代码或删除单元格 R1 中的“@”？

2. 如果我想循环并运行从单元格 R1 到 R30 的 vba 代码，我应该修改哪部分代码？

    Dim PartPoError As Range
    Dim PART As Range
    Dim PO As Range
    Dim lastrow As Long
   
   
      lastrow1 = Sheets("TEMPLATE").Cells(Rows.Count, "A").End(xlUp).Row
      x = "J" & lastrow1
      t = "A" & lastrow1
      V = "B" & lastrow1
   
      Set PartPoError = Sheets("rpt_sense").Range("A1", x)
      Set PART = Sheets("rpt_sense").Range("A1", t)
      Set PO = Sheets("rpt_sense").Range("B1", V)
   
      With Worksheets("rpt_sense")
        .Range(.Cells(2, 23), .Cells(lastrow1, 23)).ClearContents
        .Range(.Cells(2, 23), .Cells(lastrow1, 23)).Formula = "=A2&B2"
      End With
   
      lastrow2 = Sheets("template").Cells(Rows.Count, "A").End(xlUp).Row
   
      For s = lastrow2 To 16 Step -1
     If Sheets("template").Cells(s, 10).Value = "" Then
   
         ' Stuck in below formula error....it retunred with extra two "@" in cell formula R1.....
   
         Sheets("template").Cells(s, 10) = "=INDEX('rpt_sense'!r:r" & ",MATCH('template'!c8" & "&'template'!B" & s & ",'rpt_sense'!a:a" & "&'rpt_sense'!f:f" & ",0),1)"
   
        End If
   
        Next s    
   

picture file - index match id and date in yellow from another worksheet

picture 2 - data from another worksheet

Answer 1

如果您想通过 id 和 date 查找销售额和收入，我认为您不需要 vba 代码：

以下是根据两个标准查找销售额的公式：

=INDEX(Sheet2!C2:C3,MATCH(1,INDEX((Sheet3!ID(cell)=Sheet2!A2:A3)*(Sheet3!date(cell)=Sheet2!B2:B3),0, 1),0))

这里 1.Sheet2 = 存储数据的位置。 2.sheet3 = 你想在哪里找到销售额和收入 3.使用ID作为绝对参考 3.使用日期作为相对参考。 让我知道它是否有效。

Answer 2

对不起，我不完全理解你想要做什么..你能分享一下你最终输出的截图吗..

 Dim PartPoError As Range
Dim PART As Range
Dim PO As Range
Dim lastrow As Long


lastrow1 = Sheets("TEMPLATE").Cells(Rows.Count, "A").End(xlUp).Row
 
'I think this variant variable is not required if you just want to use range.

x = "J" & lastrow1
t = "A" & lastrow1
V = "B" & lastrow1
'The change will be like this.
Set PartPoError = Sheets("rpt_sense").Range("A1","J" & lastrow1)
  Set PART = Sheets("rpt_sense").Range("A1", "A" & lastrow1)
  Set PO = Sheets("rpt_sense").Range("B1","B" & lastrow1)

  With Worksheets("rpt_sense")
 .Range(.Cells(2, 23), .Cells(lastrow1, 23)).ClearContents
 .Range(.Cells(2, 23), .Cells(lastrow1, 23)).Formula = "=A2&B2"
   End With

   lastrow2 = Sheets("template").Cells(Rows.Count, "A").End(xlUp).Row

   For s = lastrow2 To 16 Step -1
  If Sheets("template").Cells(s, 10).Value = "" Then
  'Please clear what actually you want to do here..
  ' Stuck in below formula error....it retunred with extra two "@" in cell formula R1.....

  Sheets("template").Cells(s, 10) = "=INDEX('rpt_sense'!r:r" & ",MATCH('template'!c8" & "&'template'!B" & s & ",'rpt_sense'!a:a" & "&'rpt_sense'!f:f" & ",0),1)"

 End If

 Next s