Excel VBA 宏 - 復制和插入復制的單元格

Question

我似乎無法勝任這項工作。 我一直卡在

    Rows(rng 5).Select

我想要做的是復制活動單元格的行並將復制的單元格插入活動單元格下方 5 行的行中。

Sub CopyConcatenate()


    Dim ws As Worksheet
    Dim rng As Range

    Set rng = ActiveCell.Rows

    rng.Select
    Selection.Copy
    Rows(rng 5).Select
    Selection.Insert Shift:=xlDown

End Sub

Answer 1

未經測試。

這是你正在嘗試的嗎？

Sub CopyConcatenate()
    Dim ws As Worksheet
    Dim rng As Range

    '~~> Set this to the relevant worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        '~~> Set your range
        Set rng = .Rows(ActiveCell.Row)

        '~~> Copy the range
        rng.Copy

        '~~> Insert the range
        rng.Offset(5).Insert Shift:=xlDown

        '~~> Clear the clipboard. More importantly remove the
        '~~> ant like borders
        Application.CutCopyMode = False
    End With
End Sub