複製表數據汽車無

Question

我有一個表格式數據範圍從A2：O30

我需要通過點擊宏按鈕，進入範圍Q2此表的數據複製：A33等

我用這個代碼

Sub Button1_Click() 
    If Range("Q2").Value = "" Then 
     Range("Q2:AE33").Value = Range("A2:O33").Value 
    Else 
     Range("Q2:A33" & ActiveSheet.Rows.Count).End(xlUp) _ 
     .Offset(0, 1).Value = Range("A2:O33").Value 
    End If 
End Sub 

它複製很好，但是當我下一次點擊該按鈕就說明我的錯誤。 從下次我們按下按鈕時，它應該複製AE旁邊的表格範圍，即從AG2：AU33

它應該通過單擊按鈕連續複製。

在此先感謝。

Answer 1

您在Else語句中錯誤地定義了範圍。此外，使用範圍變量來保存所有時間不得不說Range("A2:O33") - 如下所示：

Dim rngCopy as Range 
Set rngCopy = Range("A2:O33") 

Cells("A" & Activesheet.Rows.Count).End(xlUp).Offset(0, 1).Resize(rngCopy.Rows.Count, rngCopy.Columns.Count).Value = rngCopy.Value