小编NoN*_*oNo的帖子

我似乎无法完成这项工作.我一直坚持下去

    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