如何在下方单元格值不等于活动单元格值时插入新行？附现有VBA代码

嘿，我来帮你搞定这个代码的问题！你的原代码核心逻辑错了——你把单元格的值和最后一行的行号LastRow做对比，这完全是驴唇不对马嘴，根本没法判断相邻单元格的值是否不同。我帮你修正代码，同时把逻辑讲清楚，确保符合你的需求。

修正后的完整代码（批量处理整列相邻单元格） #

Sub InsertBlankRowsBasedOnCellValue()
    Dim Col As Variant
    Dim BlankRows As Long
    Dim LastRow As Long
    Dim R As Long
    Dim StartRow As Long
    
    ' 这里可以根据你的需求修改配置
    Col = "A" ' 要判断值的目标列
    StartRow = 1 ' 开始处理的起始行
    BlankRows = 1 ' 每次要插入的空白行数
    
    ' 获取目标列的最后一行行号
    LastRow = Cells(Rows.Count, Col).End(xlUp).Row
    
    ' 关闭屏幕刷新，让代码运行更快
    Application.ScreenUpdating = False
    
    With ActiveSheet
        ' 从最后一行倒着往前遍历，避免插入行后打乱后续的遍历顺序
        For R = LastRow To StartRow + 1 Step -1
            ' 关键修正：对比当前行和上一行的单元格值
            If .Cells(R, Col).Value <> .Cells(R - 1, Col).Value Then
                ' 在当前行上方插入指定数量的空白行
                .Cells(R, Col).EntireRow.Resize(BlankRows).Insert Shift:=xlDown
            End If
        Next R
    End With
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键修正&逻辑说明 #

• 修复条件判断：原代码里的If .Cells(R, Col) <> LastRow Then完全错误，我改成了对比当前行R和上一行R-1的单元格值，这才符合你“值不同时插入行”的需求。
• 支持批量插入多行：用.Resize(BlankRows)可以一次性插入你想要的空白行数，不用每次只插1行，更灵活。
• 显式用.Value：虽然VBA会默认读取单元格值，但写清楚.Value能让代码更易懂，后期维护也方便。

如果你是针对单个活动单元格的场景 #

如果你说的「下方单元格值不等于活动单元格值」是指当前选中的单元格，和它正下方的单元格值不同时插入行，那用下面这个专门的版本：

Sub InsertRowBelowActiveCellIfDifferent()
    Dim activeCell As Range
    Dim belowCell As Range
    
    Set activeCell = ActiveCell
    Set belowCell = activeCell.Offset(1, 0)
    
    ' 先检查下方单元格存在，再对比值
    If Not belowCell Is Nothing And belowCell.Value <> activeCell.Value Then
        belowCell.EntireRow.Insert Shift:=xlDown
    End If
End Sub

内容的提问来源于stack exchange，提问作者Ferdian Sayidiman