[已解决]把指定工作表中某单元格中内容复制到另一工作簿的工作表的单元格中

向前650809

在VBA中，如何把当前工作簿中指定工作表中某些单元格内容复制到另一工作簿指定工作表的单元格中，单元格格式可以同时复制吗？
请指导，谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2023-9-2 12:25

Sub TEST()
    Workbooks.Open "C:\新文件.xlsx"    '打开被粘贴的文件
    ThisWorkbook.Sheets(1).Range("A1:B10").Copy   '复制源
    ActiveWorkbook.Sheets(2).Activate
    Range("A1").Select    '激活被粘贴的起始单元
    ActiveSheet.Paste
    ActiveWorkbook.Close True
End Sub

跳转到最佳答案楼层

zjdh

例：
Sheet1.Range("A1:B10").Copy Sheet2.Range("A2")
将表1的A1:B10复制到表2从A2单元开始的区域，含格式，公式（或数据）、批注等。

向前650809

是想由当前文件的工作表中，复制到另一文件的工作表中，且保存关闭。如需要把另一文件先打开，那就先打开另一文件，然后操作

zjdh

Sub TEST()
    Workbooks.Open "C:\新文件.xlsx"    '打开被粘贴的文件
    ThisWorkbook.Sheets(1).Range("A1:B10").Copy   '复制源
    ActiveWorkbook.Sheets(2).Activate
    Range("A1").Select    '激活被粘贴的起始单元
    ActiveSheet.Paste
    ActiveWorkbook.Close True
End Sub