这就一句话的事呀,两个工作簿都已经打开的情况下
Sub MyCopy()
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
End Sub
意思就是把工作簿1中工作表sheet1的A1:C50区域复制到当前工作簿sheet2工作表的A1区域(这个区域与前面的区域是一样的,只需要写左上角的单元格即可)
Public Sub Copy()
Range("A1:C10").Select '复制的区域,自行修改
Selection.Copy '复制
Workbooks(2).Activate '激活第二个BOOK
Range("A1").Select '区域,自行修改
ActiveSheet.Paste '粘贴
End Sub
VBA是什么