2017-06-07 31 views
-2

我有一个电子表格,其中包含按组的项目列表。我需要找出这些组中是否有重复值。这些“重复”的值不准确。如果一个组包含项目“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);下一个最佳输出将简单地列出“如果存在重复值,则在每个组的底部显示“是”或“否”

+0

这将是非常有益的,如果你能共享 “特定群体”,你希望输出什么样的样本成为该组中的副本。总体而言,我得到了你所问的,但我不明白,具体来说,你想要在这里得到什么。你是否想要一个公式来看一个范围,并且吐出“重复”,“不重复”(例如)。 – JNevill

+1

如果你使用VBA,你会想要利用'InStr' – dwirony

+0

你介意有一个帮助栏?你的所有值都是格式:字母,3位数字,[字母]? –

回答

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 

前:

Before

后:

After

+0

花了我一段时间,但这个工程 –

相关问题