計算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以上的單元格進行比較