vba - 在 Excel VBA 中使用 LIKE 查找单元格的重复项？

Question

我正在尝试清理一些可怕的数据。我有一个专栏，DESCRIPTION，其中包含各个部分的描述。维护这些数据的人似乎对他或她的疯狂没有任何方法，但那是另一次了。

我正在尝试查找数据的重复项并将它们标记为重复项。不幸的是，由于这东西的制作方式，它可能很艰难。例如，让我们以描述“轴承”为例。使用我当前的代码，我只能捕捉到“轴承”的单元格。如果他们说“BEARING”或“BEARING”(注意空格)或“BEARING”(再次是空格)，那么它不会捕捉到它:

Sub test()
    Dim uniqueCounter As New Scripting.Dictionary
    Dim counter As Long
    Dim rowCount As Long
    Dim identifier As String


    rowCount = 10235

    uniqueCounter.CompareMode = TextCompare

    For counter = 1 To rowCount
        identifier = ActiveSheet.Cells(counter, 3) 'Put whatever number of combination of cells which the row unique here (maybe it's just the one)
        If uniqueCounter.Exists(identifier) Then
            uniqueCounter(identifier) = CLng(uniqueCounter(CStr(ActiveSheet.Cells(counter, 3)))) + 1
            ActiveSheet.Cells(counter, 1) = "Duplicate " & identifier
        Else
            uniqueCounter.Add identifier, "0"
            ActiveSheet.Cells(counter, 1) = "Original " & identifier
        End If
    Next counter

End Sub

有没有办法在代码运行时捕获字典条目的所有可能变体，类似于在 SQL 中使用 LIKE 的方式？

Answer 1

听起来您想在 Excel 中进行正则表达式通配符匹配。您可以尝试查看内置的 Range.Find 并查看它是否可以满足您的需求。我找到了this回答有关 VBA 中匹配字符串的问题，然后将我带到 this关于使用 .Find 的帖子。