複製列從一個工作到另一個起點

複製列。

問題&例

我要複製從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

複製列從一個工作到另一個起點

回答

相關問題