excel - 删除列上的重复项而不删除整行

Question

我想删除同一列上的重复数据，而不删除包含数据的整行，因此 data>delete dups 将无法解决此问题

单元格内的数据，而不是整行，我想在删除副本时将单元格留空，为什么我不希望整行被删除？因为该列旁边的列也有数据所以删除整行不是

标签： excelvba

Answer 1

这是给你的示例代码，

Sub RemoveDuplicates()
    Dim rngData As Range
    Dim iCounter As Integer

'   Please set your range here
    Set rngData = Range("A1:A1000")
 
    For Each cCell In rngData
        If Not (IsEmpty(cCell.Value) Or Trim(cCell.Value) = "") Then
            For iCounter = cCell.Row + 1 To rngData.Rows.Count
                If cCell.Value = rngData(iCounter).Value Then rngData(iCounter).Value = ""
            Next
        End If
    Next

End Sub