Question

请帮助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)

Answer 1

您需要构造一个表示工作表公式的字符串。

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

HLookup从一个电子表格到另一个电子表格

1 个答案: