*********************

Function 比較兩個(gè)單元格(r1 As Range, R2 As Range, BJ As Integer)
Select Case BJ
Case 1 '比較重復(fù)
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) > 0 Then
比較兩個(gè)單元格 = 比較兩個(gè)單元格 & Mid(r1, i, 1)
End If
Next
Case 2 '前一個(gè)在后面一個(gè)里沒有的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比較兩個(gè)單元格 = 比較兩個(gè)單元格 & Mid(r1, i, 1)
End If
Next
Case 3 '后一個(gè)在前面一個(gè)里沒有的字符
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比較兩個(gè)單元格 = 比較兩個(gè)單元格 & Mid(R2, i, 1)
End If
Next
   Case 4 '羅列2個(gè)單元格不重復(fù)的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比較兩個(gè)單元格 = 比較兩個(gè)單元格 & Mid(r1, i, 1)
End If
Next
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比較兩個(gè)單元格 = 比較兩個(gè)單元格 & Mid(R2, i, 1)
End If
Next

End Select
End Function