vb excel 复制单元格

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

 我来答

1个回答

#热议# 为什么有人显老，有人显年轻？

我爱桑果
推荐于2016-04-22 · TA获得超过9786个赞

知道大有可为答主

回答量：4470

采纳率：0%

帮助的人：2893万

我也去答题访问个人页

关注

展开全部

这个简单，你自己录制一个宏就行，我录下来的代码是：
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