如何修改行内重复单元格删除VBA代码，实现列内或整个工作表重复单元格删除

嘿，我来帮你调整这段VBA代码！原代码是针对行内重复单元格做处理的，要改成列内或者全表范围的，只需要调整遍历的逻辑就行，下面给你分两种情况说明：

一、修改为删除列内重复单元格 #

原代码的核心是按「行→列」的顺序遍历，要处理列的话，我们把遍历顺序改成「列→行」，也就是先遍历每一列，再在列内从上到下检查重复值，把后续的重复项清空。修改后的代码如下：

Sub RemoveDuplicatesInColumn()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim r As Long '行索引
    Dim c As Long '列索引
    Dim i As Long
    With ActiveSheet.UsedRange
        lastRow = .Row + .Rows.Count - 1
        lastCol = .Column + .Columns.Count - 1
    End With
    ' 先遍历每一列，再遍历列内的行
    For c = 1 To lastCol
        For r = 1 To lastRow
            ' 在当前列中，检查当前行下方的所有行
            For i = r + 1 To lastRow
                ' 如果单元格非空且和当前单元格值重复，就清空
                If Cells(i, c) <> "" And Cells(i, c) = Cells(r, c) Then
                    Cells(i, c) = ""
                End If
            Next i
        Next r
    Next c
End Sub

注意：如果只想删除列内相邻的重复项，把i = r + 1 To lastRow改成i = r + 1 To r + 1（也就是只检查下一行）就行。

二、修改为删除整个工作表中的重复单元格 #

如果要让整个工作表里只要出现过的重复值（不管在哪个行或列）都被清空后续的重复项，我们可以用一个Collection来记录已经出现过的值，遍历所有单元格时，先检查集合里有没有这个值，有就清空，没有就加入集合。代码如下：

Sub RemoveDuplicatesInWholeSheet()
    Dim lastRow As Long
    Dim lastCol As Long
    Dim r As Long '行索引
    Dim c As Long '列索引
    Dim valueCollection As New Collection
    Dim cellValue As Variant
    
    With ActiveSheet.UsedRange
        lastRow = .Row + .Rows.Count - 1
        lastCol = .Column + .Columns.Count - 1
    End With
    
    On Error Resume Next ' 捕获集合添加重复项的错误
    For r = 1 To lastRow
        For c = 1 To lastCol
            cellValue = Cells(r, c).Value
            If cellValue <> "" Then
                ' 尝试将值加入集合，重复的话会触发错误
                valueCollection.Add cellValue, Key:=CStr(cellValue)
                ' 如果触发错误，说明值已存在，清空单元格
                If Err.Number <> 0 Then
                    Cells(r, c) = ""
                    Err.Clear ' 清除错误状态
                End If
            End If
        Next c
    Next r
    On Error GoTo 0 ' 恢复错误处理
End Sub

说明：这里用Key:=CStr(cellValue)确保集合里的键是唯一的，因为集合的键不能重复，所以重复值会触发错误，我们就利用这个错误来判断是否要清空单元格。

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