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

时间:2018-07-31 20:50:53

标签: vba excel-vba

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

1 个答案:

答案 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