用于在列中的值发生更改时插入空白行的Excel宏

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 定义需要监视的列范围
    Set rng = Range("A:A")
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, rng.Column).End(xlUp).Row
    
    ' 遍历每个更改的单元格
    For Each cell In Intersect(Target, rng)
        ' 如果单元格的值发生了更改
        If Not Application.Intersect(cell, Me.UsedRange) Is Nothing Then
            ' 在该行下方插入一行空白行
            Rows(cell.Row + 1).Insert Shift:=xlDown
        End If
    Next cell
End Sub