excel - 从excel中的行中删除重复项

Question

我有一组记录突出显示与提出日期有关的关键字。我想删除行中的重复项，并分析数据透视表上关键字的频率与它们提出的月份有关。

我已经使用 python-3 代码从系统中记录的客户查询中分块出关键字。我不知道如何剥离它。

Sub RemoveDuplicatesInRow()

    Dim lastRow As Long
    Dim lastCol As Long
    Dim r As Long 'row index
    Dim c As Long 'column index
    Dim i As Long

    With ActiveSheet.UsedRange
        lastRow = .Row + .Rows.Count - 1
        lastCol = .Column + .Columns.Count - 1
    End With

    For r = 1 To lastRow
        For c = 1 To lastCol
            For i = c + 1 To lastCol 'change lastCol to c+2 will remove adjacent duplicates only
                If Cells(r, i) <> "" And Cells(r, i) = Cells(r, c) Then
                    Cells(r, i) = ""
                End If
            Next i
        Next c
    Next r

End Sub

宏只是不起作用。

标签： excelvba