Question

vb excel 复制单元格

将A6、A7、A8、A9、A10、A11、A12单元格，复制进同一个excel中的另一个表中。
例如，同一路径下的1.xls，源工作表为1，目标工作表为2。
具体怎么实现？我是个新手。。。

Answer 1

这个简单，你自己录制一个宏就行，我录下来的银纯态代锋源码是：
Sub Macro1()
Range("裤氏A6:A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A6").Select
ActiveSheet.Paste
End Sub
有能力就自己优化一下代码。

追问

可以全一点吗？我不是很会，谢谢啊
包括打开1.xls和关闭

追答

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