把2个工作薄打开,在data1中按ALT+F11,新建一个模块,插入如下代码,光标停在代码中间,按F5运行。
Sub Macro2()
Windows("data.xls").Activate
Cells.Select
Selection.Copy
Windows("data1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
简单的话可以录制个“复制”“黏贴”来看看代码
复杂点的话可以用sql