*********************
Function 比较两个单元格(r1 As Range, R2 As Range, BJ As Integer)
Select Case BJ
Case 1 '比较重复
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) > 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
Case 2 '前一个在后面一个里没有的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
Case 3 '后一个在前面一个里没有的字符
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(R2, i, 1)
End If
Next
Case 4 '罗列2个单元格不重复的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(R2, i, 1)
End If
Next
End Select
End Function
