查找单元格组是否具有重复值

Question

我有一个电子表格，其中包含按组列出的项目。我需要找出每个组中是否有重复值。这些“重复”值并不准确。如果一个组包含项目“123”和项目“123i”，则认为这些值重复。任何数字差异都可以，我只是在寻找每个组中可能具有相同数字键的项目，而不管一个人可能有一个而一个可能没有。

总之，如何在每个单元格的前三个字符中找到特定组中的重复值？我尝试过使用COUNTIF和ISNUMBER的变体（搜索，但尚未取得任何成功。

感谢。

B109
B109i
B111
B111i
B154
B156
B330
B350

B109i
B111i
B130i
B140i
B154i
B156i
B330
B350

以上是两组的示例。在第一组中，重复B109和B109i以及重复B111和B111i。第二组不包含重复。理想情况下，输出将列出重复组旁边的单元格中的值（B109 ^ B109i）。如果存在重复值，则下一个最佳输出将简单地在每个组的底部列出“是”或“否”。

Answer 1

试试这个：

Sub TestInStr()
Dim i As Long

'From row 1 to 10
For i = 1 To 10
    If ActiveWorkbook.Worksheets("Sheet1").Range("A" & i) <> "" Then
        'Referencing column A
        If InStr(ActiveWorkbook.Worksheets("Sheet1").Range("A" & i + 1), ActiveWorkbook.Worksheets("Sheet1").Range("A" & i)) Then
            ActiveWorkbook.Worksheets("Sheet1").Range("B" & i + 1).Value = ActiveWorkbook.Worksheets("Sheet1").Range("A" & i) & "^" & ActiveWorkbook.Worksheets("Sheet1").Range("A" & i + 1)
        End If
    End If
Next i
End Sub

在：

后：