VBA 从行中删除重复项

Question

问题很简单，但我找不到解决方案。 我想在相当长的 excel 表中删除每行的重复项

我的代码看起来像这样，但不起作用：

Sub delete()

Dim i As Long, j As Integer
i = 1
j = 2
While Sheets("Test").Cells(i, 1).Value <> "end"
    While Sheets("Test").Cells(i, j).Value <> ""
        If Sheets("Test").Cells(i, j) <> Sheets("Test").Cells(i, j).offset(, 1) Then
            j = j + 1
        Else
            Sheets("Test").Cells(i, j).offset(, 1).Clear
            j = j + 1
        End If
    Wend
i = i + 1
Wend

结束子

A列底部是词尾，待排序的数据在B到QC列。有些行有重复，有些没有。 在下一步中，我需要收集 B 列中用逗号分隔的非重复值。有人可以帮我吗？

图片：

Current datastructure

After deletion of the Duplicates

Answer 1

Sub DeleteRows()

Dim LastRow As Long
Dim LastCol As Long
Dim i As Long
Dim wsTemp As Worksheet
Dim v As Variant

Set wsTemp = ActiveWorkbook.Worksheets.Add

With Sheets("Test")
    LastRow = .Range("A:A").Find(what:="end", after:=.Cells(.Rows.Count, 1), LookIn:=xlValues, lookat:=xlWhole).Row

    For i = 1 To LastRow
        LastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
        If LastCol > 1 Then
            v = .Cells(i, 1).Resize(1, LastCol).Value
            .Cells(i, 1).Resize(1, LastCol).ClearContents
            wsTemp.Range("A:A").Clear
            wsTemp.Range("A1").Resize(UBound(v, 2), 1).Value = Application.Transpose(v)
            wsTemp.Range("A1").Resize(UBound(v, 2), 1).RemoveDuplicates Columns:=1, Header:=xlNo
            v = wsTemp.Range("A:A").SpecialCells(xlCellTypeConstants).Value
            .Cells(i, 1).Resize(1, UBound(v, 1)).Value = Application.Transpose(v)
        End If
    Next
End With

Application.DisplayAlerts = False
wsTemp.Delete
Application.DisplayAlerts = True

End Sub