删除重复的excel列

Question

我想删除，删除Excel列中的重复项。我知道如何删除重复的行，但不知道是否有任何方式来处理列？

我的Excel工作表：

Name AA BB CC DD AA CC 
ID 11 22 33 44 11 33 


Name AA BB CC DD 
ID 11 22 33 44 

Answer 1

我在我的评论有点不对劲，becasue这是可能的，即使仅限于工作表函数时解决此问题。

然而，这里是快速&脏版使用transpose的：

Public Sub demo() 
    On Error Resume Next 
    Application.ScreenUpdating = False 
    With Range(Cells(1, 1), Cells(1000, 1000)) 
    .Cells = WorksheetFunction.Transpose(.Cells) 
    .Cells.RemoveDuplicates Columns:=Array(1), Header:=xlYes 
    .Cells = WorksheetFunction.Transpose(.Cells) 
    End With 
    Application.ScreenUpdating = True 
End Sub 

你应该尝试一下，虽然这是更多更小的一组数据的解决方案。这需要一段时间，但它确实有效。