Question

excel vba 跨工作簿的数据提取

想将“A.XLS”中的单元格C3、 G3、 Range("A3").End(xlDown) 的内容复制到， “B.XLS”中的Range("B9999").end(xlup).offset(1,0)、 Range("C9999").end(xlup).offset(1,0)、 Range("D9999").end(xlup).offset(1,0)单元格中 代码怎么写 ？谢谢啦

Answer 1

做了两个模拟的表，具体如下。

表1

表2

然后在表1中使用vlookup函数抽取表2的编号，公式=VLOOKUP(B2,Sheet2!A:B,2,0)，下拉。

#N/A项为表2中没有的项目，无法抽取。

Answer 2

我昨晚给你答案了，A.xls叫工作簿，每个工作簿文件里可能有好几个工作表(sheet），你得把工作表的名字也写对，如 workbooks("A.xls"). sheets("Sheet2"). Range("A1") = workbooks("B.xls"). Sheets("Sheet1") .Range("A1")

求采纳