VBA检查 单元格中文&单元格字符串

检查 单元格中文

Sub test()
For i = 2 To 358010
If (Len(Cells(i, 2)) < LenB(StrConv(Cells(i, 2), vbFromUnicode))) Then

Cells(i, 3) = 1

End If

Next i

End Sub

检查单元格字符串

Sub test()

For i = 590073 To 593794

If InStr(1, Cells(i, 2), "试剂") > 0 Or InStr(1, Cells(i, 2), "耗材") > 0 Then

Cells(i, 4) = 1

End If

Next i

End Sub