比如妳要檢測A列10000行開始的單元格是不是都有“TEXT”這四個字符，代碼可以這樣寫
圖片
Sub?檢測字符()
Dim?a
Dim?b
Dim?c
a?=?10000
b?=?0
Do
a?=?a?+?1
If?a?=?11000?Then
Exit?Do
ElseIf?Cells(a,?1)?=?"TEXT"?Then
b?=?b?+?1
c?=?c?&?"?"?&?a
End?If
Loop
MsgBox?"有TEXT文本的單元格有："?&?b?&?"個.?"?&?"分別是:"?&?c
End?Sub