excel 判断长数字是否存在有几个

Option Explicit

Sub 判断()
'该段程序用来判断数据表中A列和B列中有重复数字的个数
'其中数据表为第一个数据表
Dim xlsWB As New Workbook
Dim xlsWS As New Worksheet
Dim i, j As Integer
Dim A, B As String
Dim L As Integer: Dim N As Integer
Set xlsWB = ThisWorkbook
Set xlsWS = xlsWB.Worksheets(1) '将当前数据表设为第一个数据表，可修改括号中的数字设定相应数据表
L = 1 '初始化当前行

Do While Trim(xlsWS.Cells(L, 1)) <> "" '遍历，直到遇到空行
'首先需要对数据进行处理，否则可能出现重复计数的情况
'对第1列数据进行处理
A = Trim(xlsWS.Cells(L, 1))
For i = 1 To Len(A)
For j = i + 1 To Len(A)
If Mid(A, i, 1) = Mid(A, j, 1) Then
A = Left(A, j - 1) + Right(A, Len(A) - j)
End If
Next j
Next i
'对第2列数据进行处理
B = Trim(xlsWS.Cells(L, 2))
For i = 1 To Len(B)