excel - Excel VBA:奇数行ごとに 2 つの空白行を挿入する

Question

塗りつぶされた Excel シートがあります。シートの奇数行ごとに 2 つの余分な空白行を埋める必要があります。これを行う方法は?ボタンをクリックした後にこれを行いたいです。いくつかの答えを提案してください。

Answer 1

このようなもの？

Sub extraRows()

i = 1
While Cells(i, 1) <> ""
        Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
        i = i + 4
Wend

End Sub

Answer 2

またはこのようなもの？

Public Sub InsertRows()
  Dim i As Long
  Dim lngLastRow as long

  lngLastRow = 1000
  For i = 1 To lngLastRow Step 4
   ActiveSheet.Rows(i + 1).Insert xlShiftDown
   ActiveSheet.Rows(i + 2).Insert xlShiftDown
  Next i
End Sub

これをボタンとして使用するには、これをワークブックのモジュールに貼り付ける必要があります。ない場合は、作成する必要があります。次に、このマクロをボタンまたはショートキーにリンクできます。