[已解决]用VBA同时删除重复单元格和空白单元格

qingzhen322

A列中有多项重复单元格，也有几个空白单元格，怎样同时删除重复单元格和空白单元格。

最佳答案

月排行榜 / 总排行榜

w2001pf

2013-6-20 21:54

Sub 删除重复与空白()
With ActiveSheet
    Row0 = .Cells(1048576, 1).End(xlUp).Row
   For i = Row0 To 1 Step -1
        If .Range("A" & i) = "" Then
            .Range("A" & i).Delete Shift:=xlUp
        End If
        If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then
            .Range("A" & i).Delete Shift:=xlUp
        End If
    Next i
End With
End Sub

跳转到最佳答案楼层

lyf7276

20007版本里有删除重复和定位空格的功能

隐身

写入字典去重复。再写回表格

w2001pf

Sub 删除重复与空白()
With ActiveSheet
    Row0 = .Cells(1048576, 1).End(xlUp).Row
   For i = Row0 To 1 Step -1
        If .Range("A" & i) = "" Then
            .Range("A" & i).Delete Shift:=xlUp
        End If
        If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then
            .Range("A" & i).Delete Shift:=xlUp
        End If
    Next i
End With
End Sub