请帮助HLookup从一个工作簿迁移到另一个工作簿,进行n次迭代
Windows(Files).Activate
Sheets("Total").Select
Set myrange = Sheets("Total").Range("1:5")
Windows(ThisFileName).Activate
Sheets("Acc").Select
Range("B" & n + 2, "V" & n + 2).Select
ActiveRange("B" & n + 2, "V" & n + 2).Formula = HLookup(Acc.Range("B" & n + 1, "V" & n + 1), myrange, 2, False)
答案 0 :(得分:0)
您需要构造一个表示工作表公式的字符串。
Set myrange = workSheets("Total").Range("1:5")
with workSheets("Acc").Range("B" & n + 2, "V" & n + 2)
.Formula = "=hlookup(" & .address & ", " & myrange.address(external:=true) & ", 2, False)"
end with