在 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 个共同字符。

如果你所说的“相同字符”是指相同位置的相同字符，那么你在 A1 和 A2 之间仍然有问题。

约翰·多e
约翰·多we

“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() 并选择仅您要与上面的单元格进行比较的单元格