VBA-excel在数据集中的第n行插入一个新单元格

Question

我对VBA编码有非常基本的了解，非常需要帮助。

我想在数据集中的第n行插入一个空单元格。

我发现以下实现类似目标的VBA，我想知道是否有人想调整链接或有类似问题。

VBA Excel：每第n列插入一个新列，该列中填充了一个公式，该公式将立即数列向左

Answer 1

使用联合方法。

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