excel如何利用宏把表格内的部分数据复制到另一张表格里?

比如,我要将表格A的里A1到C3的数据复制到C盘的表格B的A2到C4里,这个宏怎么弄?有大佬知道吗

代码如下,把"C:\我的文档\测试.xlsx"改为你的实际路径和文件名即可。

Sub CopyToFile()

  Dim WB1 As Workbook, WB2 As Workbook

  Application.ScreenUpdating = False

  Set WB1 = ActiveWorkbook

  Set WB2 = Application.Workbooks.Open("C:\我的文档\测试.xlsx")

  WB1.ActiveSheet.Range("A1:C3").Copy WB2.ActiveSheet.Range("A2:C4")

  WB2.Close True

  Application.ScreenUpdating = True

End Sub

追问

问下大佬,如何批量操作去操作呢?比如把a的A1:C3复制到b表,然后D1:F3复制到C表,G1:H3复制到D表……

追答

下面这句是A1:C3复制到A2:C4的,你想复制几个区域,就多放几条这个句子就好了。
WB1.ActiveSheet.Range("A1:C3").Copy WB2.ActiveSheet.Range("A2:C4")

温馨提示:答案为网友推荐,仅供参考
相似回答