Excel 宏循环 - 每列删除重复项答案

【问题标题】：Excel Macro Loop - removing duplicates per columnExcel 宏循环 - 每列删除重复项
【发布时间】：2019-03-14 01:44:38
【问题描述】：

我是 excel 宏的新手，我想创建一个循环来识别列范围，并希望有一个行范围来删除重复项。目前我已经采取了很长的方法来创建一个excel公式来创建下面的宏脚本。

任何关于以下内容的帮助将不胜感激，因为我现在有 60 列，需要再添加 40 列...

谢谢

Sheets("Result").Select
Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("B:B").Select
ActiveSheet.Range("$B$1:$B$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("C:C").Select
ActiveSheet.Range("$C$1:$C$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("D:D").Select
ActiveSheet.Range("$D$1:$D$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("E:E").Select
ActiveSheet.Range("$E$1:$E$100000").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("F:F").Select
ActiveSheet.Range("$F$1:$F$100000").RemoveDuplicates Columns:=1, Header:=xlNo

【问题讨论】：

您确定要从每一行单独删除重复项吗？如果是这样，您有很多解决方案！或者这些列的组合是否会创建要删除的实际重复项？

标签： excel vba

【解决方案1】：

如果您只关心每列的重复项，这将起作用。

Sub RemoveDuplicates()
    'Stop the screen from updating to reduce lag
    Application.ScreenUpdating = False

    'Main loop
    For i = 1 To 100
        ActiveWorkbook.Sheets("Result").Columns(i).RemoveDuplicates Columns:=1, Header:=xlNo
    Next

    'Reset ScreenUpdating
    Application.ScreenUpdating = True
End Sub

【讨论】：

【解决方案2】：

你需要一个循环！

Sub RemoveDuplicates()
    Dim TargetSheet As Worksheet
    Set TargetSheet = ActiveWorkbook.Worksheets("Result")
    For i = 1 To 100
        TargetSheet.Cells(1, i).EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
    Next i
End Sub

【讨论】：

【解决方案3】：

这将执行逐列重复删除：

Sub Kleanup()
    For i = 1 To Columns.Count
        Columns(i).Cells.RemoveDuplicates Columns:=1, Header:=xlNo
    Next i
End Sub

【讨论】：