13问答网 > VBA编程中怎么样把不同工作簿中的数据汇总到同一个里，求详细代码~

VBA编程中怎么样把不同工作簿中的数据汇总到同一个里，求详细代码~

2025-05-06 16:07:01

推荐回答（3个）

回答1：

workbook("xls1").sheets("sht1").range("A1").value=workbook("xls2").sheets("sht1").range("B1").value

直接赋值就可以。

回答2：

如果只有那么几个单元格，那么用公式链接过去不就行了？

回答3：

假定三个工作簿名称分别为 W1.xls、W2.xls、W3.xls。
Sub ABC()
Workbooks("W2.xls").Sheets(1).Range("A1:D1").Copy Workbooks("W1.xls").Sheets(1).Range("A2")
Workbooks("W3.xls").Sheets(1).Range("A1:D1").Copy Workbooks("W1.xls").Sheets(1).Range("A3")
End Sub