VBA将值从一个工作簿复制/粘贴到另一个工作簿

我有两个工作簿，第一个叫做classeur1，第二个叫做classeur2。

我无法从Sheet1（从Workbook1）到Sheet2（从Workbook2）复制/粘贴合并的行。

我想知道如何去做。

其实我试过但没有结果。 这是我的代码：

Sub test() Dim finalrow As Long Workbooks("workbook1").Worksheets("sheet1").Range("D1:D" & finalrow).Value = Workbooks("workbook2").Worksheets("sheet2").Range("A2:A" & finalrow).Value End Sub 

Answer 1

你的一个范围从D1开始，另一个在A2，但都去了finalRow。 这使他们不同的大小范围。 我会假设你已经为finalRow分配了一个行号，但是我不会使用它。

 Option Explicit Sub test() With Workbooks("Classeur2").Worksheets("Feuil2") With .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)) Workbooks("Classeur1").Worksheets("Feuil1").Range("D1").Resize(.Rows.Count, .Columns.Count) = .Value End With End With End Sub 

Answer 2

您可以尝试通过select范围来定义表格的名称，然后select插入 – >表格 – >表格。 比方说名字是“Table1”

 Option Explicit Sub CopyTable() 'Select the defined Table1 from classeur1 workbook and copy it to classeur2 starting at cell D1 Workbooks("classeur1").Worksheets("Sheet1").Range("Table1[#All]").Copy _ Workbooks("classeur2").Worksheets("Sheet1").Range("D1") End Sub