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