Question

我有两个工作簿，第一个叫做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

您可以尝试通过选择范围来定义表格的名称，然后插入 - ＆gt;表格 - ＆gt;表。假设名称为“Table1”

<dependency>
    <groupId>org.apache.kafka</groupId>
    <artifactId>kafka_2.10</artifactId>
    <version>0.10.2.0</version>
</dependency>

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

2 个答案: