Question

使用VBA, 如何将一个EXCEL文档中某个区域的内容自动复制到另一个EXCEL文档中指定的某个区域?

问题解决可以追加分

Answer 1

这就一句话的事呀，两个工作簿都已经打开的情况下
Sub MyCopy()
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
End Sub
意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格即可）

Answer 2

Public Sub Copy()
Range("A1:C10").Select '复制的区域,自行修改
Selection.Copy '复制
Workbooks(2).Activate '激活第二个BOOK
Range("A1").Select '区域,自行修改
ActiveSheet.Paste '粘贴
End Sub

追问

我的意思是讲:
1, 当使用BOOK1的某个sheet每次有更新数据时, 能够把所需要的数据(比如: A1:A20)自动更新到BOOK2的某一个sheet中.
2, 当BOOK1和BOOK2不在同一目录下!
3, 是否两个工作表都要打开时才能进么?

追答

那你可以先修改好BOOK1的B2,保存 '假设数据是在B列
打开BOOK2
在B2输入=VLOOKUP(A2,'D:\My Documents\[Book1.xls]Sheet2'!A:B,2,0)
'D:\My Documents' 改成BOOK1的路径
下拉
下次打开BOO2会提示更新,直接是就行了

追问

可否使用VBA操作

excel 函数可操作性不好

Answer 3

VBA是什么