Excel VBA宏 - 复制并插入复制的单元格

Question

我好像无法让这个工作。我一直卡在 < /p > 上。

    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

- NoNo

---

你在 Rows(rng 5).Select 中想要做什么？这会导致错误，因为语法不正确。 - Pankaj Jaju

我正在尝试选择当前单元格下方5行的行。 - NoNo

你看到下面的答案了吗？ - Siddharth Rout

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

- Siddharth Rout

---

有趣的阅读 - Siddharth Rout