1、程序设计思路：
（1）程序要对单元格里边的每一个字进行对比判断，则需要使用到Mid截取函数，即：Mid(要截取的字符,起始位置,截取的个数)。
（2）截取一个字符之后再逐一去与其他字符比较，相同则计1，满足条件则说明他们是存在相同的字符，此时就要用到For……Next嵌套使用。
（3）For……Next的循环次数主要是根据单元格的字符长度来循环的，此时就需要使用到统计字符长度函数Len，即：Len(要统计字符长度的单元格)。
2、打开Excel表格后，点击【开发工具】、【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
3、在VBA编辑器的菜单栏上边点击【插入】、【模块】，或者依次按【Alt】、【I】、【M】键插入模块。
4、在模块的代码框里面输入以下VBA程序代码，然后按下【F5】键运行，也可以点击工具栏里面的“运行”图标运行程序。
Sub Chk()
Dim i1, i2, i3, i4, i5, i6, m1, m2
On Error Resume Next '忽略运行中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表
For i1 = 2 To 100 '从第2行到100行
If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白，则
i4 = 0 '中间变量（统计相同个数）初始化
i5 = (Len(mysheet1.Cells(i1, 2))) '获取B列相应单元格字符长度
i6 = (Len(mysheet1.Cells(i1, 1))) '获取A列相应单元格字符长度
For i3 = 1 To i5 'B列相应单元格从第1个字符到末尾的字符长度
m1 = Mid(mysheet1.Cells(i1, 2), i3, 1) '截取字符
For i2 = 1 To i6 'A列相应单元格从第1个字符到末尾的字符长度
m2 = Mid(mysheet1.Cells(i1, 1), i2, 1) '截取字符
If m2 = m1 Then '如果存在相同字符，则加1
i4 = i4 + 1
End If
Next
Next
If i4 = i5 Then '如果B列对应单元格的字符数与相同字符数相等，则
mysheet1.Cells(i1, 3) = "Yes"
Else
mysheet1.Cells(i1, 3) = "No"
End If
End If
Next
End Sub
5、回到Excel表格界面，将会看到程序执行的结果。
