Question

我一直试图遍历一系列单元格并应用索引匹配。所以，到目前为止，索引匹配仅适用于范围的第一行（因此它不循环）。我正在提供代码。

Dim LastRow As Long
Sheets("REPORT").Select
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("C2:C" & LastRow).Formula "=INDEX('2609'!C:C,MATCH('REPORT'!A2,'2609'!E:E,FALSE))"

Answer 1

写

Range("C2:C" & LastRow).Formula "=INDEX('2609'!C:C,MATCH('REPORT'!A2,'2609'!E:E,FALSE))"

as

Range("C2:C" & LastRow).Formula ="=INDEX('2609'!C:C,MATCH('REPORT'!A2,'2609'!E:E,FALSE))"

您缺少=标志。

您的代码可以写成

Sub Demo()
    Dim ws As Worksheet
    Dim LastRow As Long

    Set ws = ThisWorkbook.Sheets("REPORT")
    With ws
        LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("C2:C" & LastRow).Formula = "=INDEX('2609'!C:C,MATCH('REPORT'!A2,'2609'!E:E,FALSE))"
    End With
End Sub

VBA公式属性中的索引匹配

1 个答案: