VBA Excel - 需要復制一個范圍，將其粘貼在一列中然后循環

Question

我有一長列單詞，需要將前 30 個左右復制並粘貼到另一張紙上的一列中，然后將接下來的 30 個粘貼到以下列中，依此類推。

我記錄了一個宏的開始，但不知道如何在不單獨寫出每一位的情況下讓它完成整個事情。

Sub asdasd()

'
    Range("A2:A29").Select
    Selection.Copy
    Sheets("COMMON WORDS").Select
    Range("AG2").Select
    ActiveSheet.Paste
    Sheets("COMMON - SINGLE LIST").Select
    Range("A30").Select
    Range("A30,A57").Select
    Range("A57").Activate
    Range("A30:A57").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("COMMON WORDS").Select
    Range("AH2").Select
    ActiveSheet.Paste
End Sub

Answer 1

Sub LoopCopy()

    Dim rngCopy As Range, rngPaste As Range

    Set rngCopy = Sheets("COMMON - SINGLE LIST").Range("A2:A29")
    Set rngPaste = Sheets("COMMON WORDS").Range("AG2")

    'copy while there's data in rngCopy...
    Do while application.counta(rngCopy) > 0
        rngCopy.copy rngPaste
        set rngCopy = rngCopy.offset(rngCopy.rows.count, 0) '<< move copy range           
        set rngPaste = rngPaste.offset(0, 1) '<< move paste postion over
    Loop

 End Sub