Excel删除重复行单不删除单元格

蜡笔和小新

于 2013-12-29 10:45:48 发布

阅读量1k

点赞数

选中需要清理的数据区域（如上的：A1:F3），按 ALT + F8 执行宏 Clear
宏代码：
Sub Clear()
Dim ag1 As Range
Dim ag2 As Range
    For Each ag1 In Selection
        For Each ag2 In Selection
            If ag1.Value = ag2.Value Then
                If (ag1.Row <> ag2.Row) Or (ag1.Column <> ag2.Column) Then
                    ag2.Value = ""
                End If
            End If
        Next
    Next
End Sub