microsoft excel如何复制表格？

2026-05-19 15:00:26

推荐回答（2个）

回答1：

Sub Macro1()\x0d\x0a Workbooks.Open "D:\test\1.xls"\x0d\x0a Sheets("Sheet1").Range("A6:A11").Copy\x0d\x0a Sheets("Sheet2").Range("A6").Select\x0d\x0a ActiveSheet.Paste\x0d\x0a ActiveWorkbook.Save\x0d\x0a Workbooks("1.XLS").Close\x0d\x0aEnd Sub\x0d\x0a其实你只要录制宏，操作你想要的，然后宏里的就可以拿来用了

回答2：

Sub Macro1()
Workbooks.Open "D:\test\1.xls"
Sheets("Sheet1").Range("A6:A11").Copy
Sheets("Sheet2").Range("A6").Select
ActiveSheet.Paste
ActiveWorkbook.Save
Workbooks("1.XLS").Close
End Sub
其实你只要录制宏，操作你想要的，然后宏里的就可以拿来用了