我正在尝试使用索引匹配公式来查找值并将其粘贴到新的工作表中。我使用for来刷整个范围。但是，我的代码无法正常工作，我也不明白为什么。

这里是其中的一部分。

谢谢！

    Dim dimensions As Long
    dimensions = Worksheets("Rel_Raw").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
    Dim j As Long

    For j = 2 To dimensions Step 1
    Worksheets("Data").Cells(j,1).Value = WorksheetFunction.Index(Worksheets("Rel_Data").Range("I1:I" & dimensions),_
    WorksheetFunction.Match(Worksheets("Data").Cells(k,16).Value,Range("I2:I" & dimensions),0))
    Next