当ColumnDifferences方法无差异时，如何退出Do While循环？

你的宏出现运行时错误'1004'，是因为ColumnDifferences方法找不到差异单元格时会抛出异常。我们可以通过错误捕获、避免依赖选中状态来解决问题，同时让循环在无差异时自动退出。

关键修改点： #

• 添加错误捕获机制，处理找不到差异单元格的情况
• 用对象变量代替Select和ActiveCell，提升代码稳定性与效率
• 优化循环终止条件，确保无差异时正常退出

修改后的完整代码： #

Sub Divider_On_Column_Difference()
    Dim ws As Worksheet
    Dim currentCell As Range
    Dim diffCell As Range
    Dim lastRow As Long
    
    Set ws = ActiveSheet
    Set currentCell = ws.Range("K1")
    
    Do
        lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
        ' 捕获ColumnDifferences无结果时的错误
        On Error Resume Next
        Set diffCell = ws.Range(currentCell, ws.Cells(lastRow, "K")).ColumnDifferences(currentCell)
        On Error GoTo 0
        
        ' 无差异则退出循环
        If diffCell Is Nothing Then Exit Do
        
        ' 定位到差异单元格的上一行（准备插入分隔行）
        Set currentCell = diffCell.Cells(1).Offset(-1, 0)
        
        ' 插入并格式化分隔行
        currentCell.EntireRow.Insert
        With currentCell.Offset(-1, -10).Resize(1, 10) ' 对应A到J列范围
            .RowHeight = 4
            With .Borders
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = 1
            End With
            ExecuteExcel4Macro "PATTERNS(1,0,5,TRUE,2,4,0,0)"
        End With
        
        ' 更新检查位置到下一段数据的K列单元格
        Set currentCell = currentCell.Offset(2, 10)
        
        ' 超出数据范围则退出循环
        If currentCell.Row > lastRow + 1 Then Exit Do
    Loop
End Sub

代码说明： #

1. 错误处理：用On Error Resume Next捕获ColumnDifferences的异常，之后通过判断diffCell是否为Nothing，直接退出循环。
2. 取消选中依赖：全程使用对象变量操作单元格，不再依赖选中状态，避免手动操作干扰代码运行。
3. 循环终止逻辑：同时检查是否存在差异、检查位置是否超出数据范围，确保循环能正常结束。

内容的提问来源于stack exchange，提问作者Logan Lane