Excel - 删除重复项,值的组合

时间:2018-03-22 21:05:05

标签: excel vba excel-vba

感谢您花时间阅读我的问题,因为它已经发布了。让我们说我得到了这些数据,只想保留两个列中的一个唯一值并删除其他列,最简单的方法是什么?

enter image description here

感谢您的关注,

4 个答案:

答案 0 :(得分:2)

在众多可能性中,你可以做一个数据透视表。请参阅我的解释here.

答案 1 :(得分:2)

在众多可能性中,您可以使用数据>数据工具>删除一起选择的两列上的重复项。

Remove Duplicates

答案 2 :(得分:2)

您可以使用此VBA代码:

Sub RemoveDuplicates()
Dim lastRow As Long, letters As Variant, arr As New Collection, i As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

letters = Range(Cells(1, 1), Cells(lastRow, 2))

On Error Resume Next
For i = 1 To lastRow
    arr.Add letters(i, 1) & letters(i, 2), letters(i, 1) & letters(i, 2)
Next

For i = 1 To arr.Count
    Cells(i, 3) = Left(arr(i), 1)
    Cells(i, 4) = Right(arr(i), 1)
Next
End Sub

答案 3 :(得分:2)

将唯一列表放在C&列中D,选择数据范围然后使用Data,Sort&过滤,高级过滤,复制到新位置,仅限唯一记录。

enter image description here