VBA-excelデータセット内のn番目の行ごとに新しいセルを挿入

Question

私はVBAコーディングに関する非常に基本的な知識があり、助けが必要です。

データセットのn番目の行ごとに空のセルを挿入したいとします。

私は、同様の目標を達成する次のVBAを見つけました。リンクされた、または同様の問題を抱えている人がいるかどうかは疑問でした。

VBA Excel: Insert a new column every nth column filled with a formula which refrences the immediate column to the left

Answer 1

組合メソッドを使用します。 `あなたがシフト.Insert行`行（i）を挿入する必要があります（= xlToRightシフト）：代わりに列（COLX）.Insert `の

Sub insertRow() 
    Dim rngU As Range, rng As Range 
    Dim i As Long 
    For i = 4 To 20 Step 3 
     If rngU Is Nothing Then 
      Set rngU = Range("a" & i) 
     Else 
      Set rngU = Union(rngU, Range("a" & i)) 
     End If 
    Next i 
    rngU.EntireRow.Insert 
End Sub