4

242 行を含むワークシートがあります。既存の各行の下に新しい行を作成したいと思います。代わりに、私のコードは行 1 の下に 242 行を作成します。Google と Stack Overflow で午後を過ごし、さまざまなアイデアを試しましたが、同じ問題が発生しました。これが私のコードです:

Function rws() As Integer

rws = (Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row)

End Function

Sub InsRws()

Dim rng As Range
Dim row As Range

Set rng = Range("A1:A" & rws - 1)

For Each row In rng.Rows
    Rows.Select
    ActiveCell.Offset(1).EntireRow.Insert
Next row

End Sub
4

3 に答える 3