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