计算Excel中两个单元格之间的字符数相同

Question

我很新，不是第一次使用的用户，但可能在这里曾经有一次。

我有一个庞大的名单，以检查他们是否有重复。

问题是，有时同名的拼写不同，列表中的同一个人。

所以，我想检查单元格的第一个字母，看它们是否相同。

例如，这里是一个虚构的名单：

A1 John Doe 
A2 John Dowe 
A3 John Dove 

有一个Excel的功能，我可以使用，会告诉我有多少字符是从它上面的细胞一样吗？

所以，在细胞中，其中所述公式将是上面的例子中，将显示：

A1 John Doe B1 0 (or "NA" or "REF" because there's no cell to compare to above it) 
A2 John Dowe B2 7 
A3 John Dove B3 7 

因为无论A2和A3份额7个字符与它们上面的小区...我希望这是很容易理解。

谢谢！

Answer 1

看看this question。它是在不同的情况下询问名称匹配的问题，但有很多很好的例子说明如何在那里列出。

这是一个相当深的兔子洞，取决于你想得到多深和深度。

Answer 2

您没有给我们足够的信息。

就你而言，A1（“John Doe”）包含两个“o”字符。因此，下面的单元格A2（“John Dowe”）将只有6个字符的共同点。

IF你所说的“同一个字符”是相同位置的同一个字符，那么你在A1和A2之间仍然存在问题。

约翰待办事项Ë
约翰待办事项W¯¯Ë

“W” 和 “e” 不匹配。只有6个字符是相同的。

为我们提供更多信息！

编辑＃1
复制并粘贴此代码的模块

Function compareCells(ran As Range) As Variant 
Dim numSame As Integer 

Dim c As Integer 
Dim r As Integer 
c = ran.Column 'find selected column 
r = ran.Row  'find selected row 

Dim a As String 
Dim b As String 
a = Worksheets("Ark1").Cells(r - 1, c).Value 'string of the cell above 
b = Worksheets("Ark1").Cells(r, c).Value  'string of the current cell 

Dim aLen As Integer 
aLen = Len(a)  'check the length of the a string 


Dim i As Integer 
For i = 1 To aLen 
    If Mid(a, i, 1) = Mid(b, i, 1) Then 'if chars in same pos are equal... 
     numSame = numSame + 1 
    End If 
Next 

compareCells = numSame 

End Function 

编辑＃2

Function compareCells(ran As Range) As Variant 
Dim numSame As Integer 

Dim c As Integer 
Dim r As Integer 
c = ran.Column 'find selected column 
r = ran.Row  'find selected row 

Dim a As String 
Dim b As String 
a = ActiveSheet.Cells(r - 1, c).Value 'string of the cell above 
b = ActiveSheet.Cells(r, c).Value  'string of the current cell 

Dim aLen As Integer 
aLen = Len(a)  'check the length of the a string 


Dim i As Integer 
For i = 1 To aLen 
    If Mid(a, i, 1) = Mid(b, i, 1) Then 'if chars in same pos are equal... 
     numSame = numSame + 1 
    End If 
Next 

compareCells = numSame 

End Function 

使用=compareCells()并选择只有你想要的细胞与

0以上的单元格进行比较