判断Excel单元格是否包含其他单元格字符

1、打开Excel表格，点击【开发工具】、【Visual Basic】。

2、VBE编辑器的菜单栏上面点击【插入】、【模块】。

3、模块代码框里边输入以下VBA程序代码。Sub Include_All()Dim i1, i2, i3, i4, i5, Str1On Error Resume Next '忽略运行过程中可能出现的错误Application.ScreenUpdating = False '关闭屏幕更新Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1For i1 = 2 To 1000 '从第二行到1000行If mysheet1.Cells(i1, 1) <> "" And mysheet1.Cells(i1, 2) <> "" Then'如果单元格都不是空白，则 i4 = 0 i5 = Len(mysheet1.Cells(i1, 2)) '获取单元格字符串长度 For i2 = 1 To i5 Str1 = Mid(mysheet1.Cells(i1, 2), i2, 1) '截取字符 i3 = InStr(1, mysheet1.Cells(i1, 1), Str1, 0) '判断字符所在位置 If i3 <> 0 Then i4 = i4 + 1 End If Next If i4 = i5 Then '如果累计的次数与字符个数相符，则 mysheet1.Cells(i1, 3) = "是" Else mysheet1.Cells(i1, 3) = "否" End IfEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End Sub

4、检查无误后，在VBE功能区里面点击“运行”图标运行程序。

5、回到Sheet1工作表界面，将会看到程序执行的判断结果。