使用按鈕將新數據復制到同一單元中后，是否自動向下移動數據？

Question

我試圖使用一個宏按鈕，一旦單擊該宏按鈕，就會將一組數據A3：E22從工作表1復制到工作表3上的A3：E22。復制之后，我希望清除工作表1中的數據，以便可以開始輸入剛剛清除的單元格中的新數據。

我在向下移動工作表3上的數據時遇到了麻煩，因此，一旦我再次重復將數據從工作表1復制到工作表3的周期，我以前在工作表3上復制的數據將自動向下移動並一直向下移動重復復制周期。

在從工作表1到工作表3的復印周期中，是否可以對按鈕編程某些代碼集，以便工作表3上的數據自動下移？

2014年11月5日我已經嘗試了回復中的代碼，並且在新工作簿上可以很好地工作，但是我無法將此代碼轉移到現有工作簿上。 我不斷收到“設置S1 ...”的“下標超出范圍”錯誤。 我是否需要重命名工作表或給S1打電話以參考工作表1？ 我是編碼方面的新手，因此將不勝感激。

Answer 1

這是一些典型的代碼：

Sub TransferData()
    Dim s1 As Worksheet, s3 As Worksheet
    Dim r1 As Range, r3 As Range
    Set s1 = Sheets("Sheet1")
    Set s3 = Sheets("Sheet3")
    Set r1 = s1.Range("A3:E22")
    Set r3 = s3.Range("A3:E22")

    s3.Activate
    r3.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Set r3 = s3.Range("A3:E22")

    s1.Activate
    r1.Copy r3
    r1.Clear
End Sub