VBA-在不同的列中添加不同的形式

Question

我已经到一张桌子，并且成功创建了一个vba代码，该代码添加了Vlookup公式并向下拖动列。

Dim lastRow As Long
lastRow = Cells(Rows.Count, 8).End(xlUp).Row
Range("H5:H" & lastRow).Formula = "=VLOOKUP(A5,'XXX!$AA$5:$AM$2000,8,0)"
Range("H5:H" & lastRow).Value = Range("H5:H" & lastRow).Value

我现在遇到的问题是我想对其他5个具有不同公式的列进行相同的操作...我试图复制上面的代码，但是更改了列和公式，但始终得到错误或不正确的结果。 / p>

即

Dim lastRow As Long
lastRow = Cells(Rows.Count, 8).End(xlUp).Row
Range("H5:H" & lastRow).Formula = "=VLOOKUP(A5,'XXX!$AA$5:$AM$2000,8,0)"
Range("H5:H" & lastRow).Value = Range("H5:H" & lastRow).Value


lastRow = Cells(Rows.Count, 9).End(xlUp).Row
Range("G5:G" & lastRow).Formula = "=VLOOKUP(A5,'XXX!$AA$5:$AM$2000,9,0)"
Range("G5:G" & lastRow).Value = Range("G5:G" & lastRow).Value

任何帮助将不胜感激

谢谢