复制列从一个工作到另一个起点

复制列。

问题&例

我要复制从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

来源

2016-01-21 indofraiser

用增补行号当您复制"A1:A" & lastRow并通过增加LastRow一个你保证范围大小相同。

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))

来源

2016-01-21 13:52:57 Genie

嗨@Genie如果我把A1这不起作用。当我将其更改为A：A时，它会复制。然而无论如何s2.Range（“B2：...仍然把它放到第一行，我试着把它改成B5，但是它仍然复制到第一行 – indofraiser

检查更新后的代码我以前并没有意识到你没有正确设置您的图纸。 – Genie

复制列从一个工作到另一个起点

回答

相关问题