Question

我编写了一个宏来删除数据列表中的重复项 - 我现在需要修改此代码以使其不区分大小写（例如，删除拼写相同的重复记录，无论大小写如何）。

例如，如果我有以下列表：

BALL
Ball
Cat 
CAT
Dog

我想输出宏：

Ball
Cat 
Dog

这是我目前的代码 - 任何帮助将不胜感激（请注意我已尝试在模块的开头插入“Option Compare Text”命令）：

Option Compare Text

Sub Delete_Duplicates()

Application.ScreenUpdating = False
Worksheets("Proposal Database").Activate

With ActiveSheet

.Range("B2", .Range("B2").End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A2"), Unique:=True

End With

Worksheets("Input Screen").Activate
Application.ScreenUpdating = True

End Sub

Answer 1

使用excel-built-in函数（不区分大小写），如下所示：

Sub Delete_Duplicates()

    Application.ScreenUpdating = False
    Worksheets("Proposal Database").Activate

    ActiveSheet.Columns(2).RemoveDuplicates

    Worksheets("Input Screen").Activate
    Application.ScreenUpdating = True

End Sub

VBA案例不敏感的高级过滤器排序

1 个答案: