VBA 插入行而不是復制

Question

我想在爬行之前先跑。 我拼湊了這段代碼，但我需要它在第 24 行插入，而不是復制。

Dim sh4 As Worksheet, sh5 As Worksheet, lr As Long, rng As Range
Set sh4 = Sheets("est")
Set sh5 = Sheets("gaf letter")
lr = sh4.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sh4.Range("a1:a" & lr)
rng.EntireRow.Copy sh5.Rows("24:24")

我試過使用.Insert，但它出現了 object Range Failed 的 Method Insert。 如果我只想復制，代碼工作正常，但我需要它來插入和移動它下面的剩余行，向下。

Answer 1

Option Explicit ' declare all variables

Sub InsertRows()

    Dim sh4 As Worksheet, sh5 As Worksheet
    Dim lr As Long, rng As Range
    Set sh4 = Sheets("est")
    Set sh5 = Sheets("gaf letter")
    
    Application.ScreenUpdating = False
    With sh4
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Rows("1:" & lr)
        rng.Copy
        sh5.Rows(24).Insert shift:=xlDown
    End With
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub

Answer 2

只是 go

With Sheets("est")
    .Range("A1", .Cells(.rows.Count, 1).End(xlUp)).EntireRow.Copy
    Sheets("gaf letter").rows(24).Insert shift:=xlDown
    Application.CutCopyMode = False
End With