编写VBA宏：单元格值等于下一个可见单元格时隐藏行（15000行场景）

针对你遇到的SpecialCells(xlCellTypeVisible)最多支持8192个单元格的限制，以及需要仅对可见单元格生效、隐藏与下一个可见单元格值重复的行的需求，这里提供一个绕过限制的解决方案：

核心思路 #

不用一次性获取所有可见单元格（这会触发数量限制），而是逐个遍历可见单元格，每次只查找当前单元格之后的下一个可见单元格进行比较，这样既避开了8192的限制，又严格只处理可见行。

优化后的VBA代码 #

Sub HideDuplicateVisibleRows()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 替换为你的目标工作表，例如 ThisWorkbook.Worksheets("DataSheet")
    
    Dim currentCell As Range
    Dim nextCell As Range
    Dim targetRange As Range
    
    ' 限定处理范围为P7到P15258（匹配你的需求范围）
    Set targetRange = ws.Range("P7:P15258")
    
    ' 关闭屏幕更新，大幅提升宏的运行速度
    Application.ScreenUpdating = False
    
    ' 初始化当前单元格为目标范围内的第一个可见单元格
    On Error Resume Next
    Set currentCell = targetRange.SpecialCells(xlCellTypeVisible).Cells(1)
    On Error GoTo 0
    
    Do While Not currentCell Is Nothing
        ' 查找当前单元格之后、目标范围内的下一个可见单元格
        On Error Resume Next
        Set nextCell = ws.Range(currentCell.Offset(1), targetRange.Cells(targetRange.Cells.Count)) _
            .SpecialCells(xlCellTypeVisible).Cells(1)
        On Error GoTo 0
        
        ' 仅当存在下一个可见单元格时，比较值并决定是否隐藏当前行
        If Not nextCell Is Nothing Then
            If currentCell.Value = nextCell.Value Then
                currentCell.EntireRow.Hidden = True
            End If
        End If
        
        ' 更新当前单元格为下一个可见单元格，进入下一轮循环
        Set currentCell = nextCell
    Loop
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

代码说明 #

• 范围限定：通过targetRange明确处理P7到P15258的行，避免遍历整个工作表，提升效率。
• 错误处理：用On Error Resume Next捕获找不到下一个可见单元格的情况，防止宏报错终止。
• 性能优化：关闭ScreenUpdating避免频繁刷新屏幕，减少运行时间。
• 严格处理可见单元格：每次只操作当前和下一个可见单元格，完全符合你“仅对可见单元格生效”的需求。

为什么你的原代码不符合需求？ #

你的原代码遍历了7到15258的所有行，包括已经隐藏的行，这会导致：

1. 对隐藏行进行不必要的判断
2. 可能误判隐藏行和可见行的关系

而上面的方案只在可见单元格之间进行比较，完全解决了这个问题，同时避开了SpecialCells的数量限制。

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