Vba将范围复制到另一张工作表+工作簿

要将单元格或单元格区域复制到另一个工作表，必须使用 VBA 的“复制”方法。在此方法中，您需要使用要复制的范围对象定义范围或单元格，然后使用要将其粘贴到的范围定义另一个工作表。

复制单元格或排列到另一个工作表

 Range("A1").Copy Worksheets("Sheet2").Range("A1")

1. 首先，设置要复制的范围或单元格。
   
2. 然后键入句点 (.) 并从属性和方法列表中选择复制方法。
   
3. 在这里，您将获得智能感知来设置复制单元格的目的地。
   
4. 从这里您需要定义工作表，然后定义目标范围。
   

现在，当您运行此代码时，它将单元格 A1 从活动工作表复制到“Sheet2”。您需要确保的一件事是，当您复制单元格并将其粘贴到目标位置时，它也会将格式粘贴到那里。

但是，如果您只想复制单元格的值并将其粘贴到不同的工作表中，请考虑以下代码。

 Worksheets("Sheet2").Range("A1") = Range("A1").Value

此方法不使用复制方法，而只是使用等号并使用源单元格的 value 属性将值添加到目标工作表。

从另一个工作表复制单元格

现在假设您要从当时不活动的工作表中复制一个单元格。在这种情况下，您需要使用源单元格定义工作表。就像下面的代码一样。

 Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")

复制一系列单元格

 Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")

将工作表中的单元格复制到另一个工作簿

当工作簿打开但尚未保存时。

 Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")

打开并保存工作簿时。

 Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")

将工作表中的单元格复制到另一个关闭的工作簿

 'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=True

相关：如何在 Excel 中使用 VBA 打开工作簿