Question

目标

将列从一个工作表复制到另一个工作表。

问题＆amp;实施例

我想将一个列从S1复制到S2，但我希望粘贴从第二行开始。我可以将它复制到第一个单元格/行而不是第二个。代码示例适用于前四行，但是当我将B1更改为B2时，我没有尝试添加范围，但无效。

代码：

Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("BatchData")
    Set s2 = Sheets("Portal_Aligned")
    s1.Range("A:A" & LastRow).Copy s2.Range("B1")
    s1.Range("A:A" & LastRow).Copy s2.Range("B2:B" & LastRow)

价：

How to select a range of the second row to the last row

Answer 1

通过在复制时将行号添加到"A1:A" & lastRow并将LastRow递增1来确保范围具有相同的大小。

Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Worksheets("BatchData")
    Set s2 = Worksheets("Portal_Aligned")
    s1.Range("A1:A" & LastRow).Copy s2.Range("B1")
    s1.Range("A1:A" & LastRow).Copy s2.Range("B2:B" & (LastRow+1))

将工作表中的列复制到特定的行起始点

1 个答案: