Excel VBA实现仅删除H列为空的重复代码问题求助

问题分析 #

你遇到的核心问题是无法精准区分重复行中H列是否为空的情况，直接用IsEmpty()可能失效是因为单元格可能存在不可见字符（如空格），而「Sort method of Range class failed」错误通常是排序范围定义错误、工作表受保护或存在合并单元格导致。

可行VBA代码方案 #

以下代码假设重复判断的“代码”在A列，如果你的代码列不是A列，修改代码中Key1:=.Range("A:A")的列标识即可：

Sub DeleteEmptyH_Duplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 解除工作表保护（如果有保护）
    If ws.ProtectContents Then
        ws.Unprotect Password:="你的密码" ' 无密码则留空
    End If
    
    ' 获取数据最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 排序：先按代码列升序，再按H列降序（让H列非空的重复行排在前面）
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=ws.Range("H:H"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange ws.Range("A1:H" & lastRow) ' 确保排序范围覆盖所有数据列
        .Header = xlYes ' 有表头则设为xlYes，没有则xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 从后往前遍历，避免删除行导致索引错乱
    For i = lastRow To 2 Step -1
        ' 判断当前行与上一行代码重复，且当前行H列为空（含空格情况）
        If ws.Cells(i, "A").Value = ws.Cells(i - 1, "A").Value And _
           Trim(ws.Cells(i, "H").Value) = "" Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 恢复工作表保护（如果之前有）
    If ws.ProtectContents = False Then
        ws.Protect Password:="你的密码" ' 无密码则留空
    End If
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "处理完成"
End Sub

关键说明 #

1. 空值判断：用Trim(ws.Cells(i, "H").Value) = ""替代IsEmpty()，可以处理单元格含空格的情况，避免误判。
2. 排序逻辑：先按代码列分组，再让H列非空行排在同组前面，这样遍历删除时只会去掉同组中H列为空的后续行，保留H列非空的行。
3. 从后往前遍历：删除行时从最后一行开始，不会因为前面行删除导致后续行索引偏移，避免漏判或错判。
4. 排序错误处理：代码中加入了解除工作表保护的逻辑，且明确指定排序范围为数据区域，避免因保护或范围错误触发Sort报错。

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