VBA将值从一个工作簿复制/粘贴到另一个工作簿 [英] VBA Copy / paste values from one workbook to another

问题描述

我有两本工作簿，第一本叫做classeur1，第二本叫做classeur2.

I have two workbooks the first one is called classeur1 and the second is called classeur2.

我无法将表格中的合并行从Sheet1(从Workbook1)复制/粘贴到Sheet2(从Workbook2).

I cannot copy / paste merged rows from a table from Sheet1 (from Workbook1) to Sheet2 (from Workbook2).

我想知道怎么做.

事实上，我尝试了但没有结果.这是我的代码:

In fact I tried but no result. Here is my code:

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

推荐答案

您的一个范围起始于D1，另一个范围起始于A2，但都进入了finalRow.这使它们具有不同的大小范围.我假设您实际上已经为finalRow分配了一个行号，但我不会使用它.

One of your ranges starts at D1 and the other at A2 but both go to finalRow. This makes them different size ranges. I'll assume that you have actually assigned a row number to finalRow but I won't use it.

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

这篇关于VBA将值从一个工作簿复制/粘贴到另一个工作簿的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！