RT
如何判断A列或是range(A3:A202)中是否包含一个特定字符
Sub aa()
Dim i As Integer
'å¤å®æ å¿ kï¼è¥æ¾å°ç¹å®å符ï¼k=falseï¼æ¨åºå¾ªç¯
Dim k As Boolean
k = True
For i = 3 To 202
'å¦æå å«ç¹å®å符InStr(Range("A" & i), "ç¹å®å符") ä¼å¤§äº0
If InStr(Range("A" & i), "ç¹å®å符") > 0 Then
k = False
End If
Exit For
Next
End Sub
Dim i As Integer
'å¤å®æ å¿ kï¼è¥æ¾å°ç¹å®å符ï¼k=falseï¼æ¨åºå¾ªç¯
Dim k As Boolean
k = True
For i = 3 To 202
'å¦æå å«ç¹å®å符InStr(Range("A" & i), "ç¹å®å符") ä¼å¤§äº0
If InStr(Range("A" & i), "ç¹å®å符") > 0 Then
k = False
End If
Exit For
Next
End Sub
ç¹å®åç¬¦ä½ èªå·±è¯¥æä½ ç
追é®å¦æç¹å®å符为ä¸ä¸ªåå æ ¼çå 容ææ¯ä¸ä¸ªèªå·±å£°æçåéaçå¼è¯¥æä¹å¡«
追ç1.åå æ ¼çå 容ï¼å设为B1ï¼é£ä¹ï¼æ
If InStr(Range("A" & i), "ç¹å®å符") > 0 Thenæ¹æ
2.
åéa,é£ä¹ï¼æ
If InStr(Range("A" & i), "ç¹å®å符") > 0 Then
æ¹æ
If InStr(Range("A" & i),a) > 0 Then
å³å¯
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2018-03-08
Sub SSS()
If Range("A3:A202").Find("RT") Is Nothing Then
MsgBox "不含RT"
Else
MsgBox "含RT"
End If
End Sub追问
RT=变量
If Range("A3:A202").Find(RT) Is Nothing Then
MsgBox "不含RT"
Else
MsgBox "含RT"
End If
End Sub本回答被提问者和网友采纳
If Range("A3:A202").Find("RT") Is Nothing Then
MsgBox "不含RT"
Else
MsgBox "含RT"
End If
End Sub追问
如果把“RT”改为string变量A怎么改
追答Sub SSS()RT=变量
If Range("A3:A202").Find(RT) Is Nothing Then
MsgBox "不含RT"
Else
MsgBox "含RT"
End If
End Sub本回答被提问者和网友采纳
第2个回答 2013-08-01
Sub AAA()
If Range("A3:A202").Find("特殊字符", lookat:=xlPart) Is Nothing Then
MsgBox "没有找到该字符", vbCritical + vbOKOnly, "错误"
Else
MsgBox "在单元格 " & _
Range("A3:A202").Find("特殊字符", lookat:=xlWhole).Address(0, 0) & _
" 中找到该字符", vbInformation + vbOKOnly, "OK"
End If
End Sub
If Range("A3:A202").Find("特殊字符", lookat:=xlPart) Is Nothing Then
MsgBox "没有找到该字符", vbCritical + vbOKOnly, "错误"
Else
MsgBox "在单元格 " & _
Range("A3:A202").Find("特殊字符", lookat:=xlWhole).Address(0, 0) & _
" 中找到该字符", vbInformation + vbOKOnly, "OK"
End If
End Sub
第3个回答 2013-08-01
用for each来循环，并用like来搜索
