2.然後在彈出窗口中，右鍵單擊工作表並選擇Open View Code。
3，然後在彈出的窗口中，點擊輸入代碼:
次級AAA級()
暗淡我壹樣長
對於I = 1到1000 '線範圍，自己修改。
If InStr(範圍(" A " & ampI)，" invalid status ")& gt；那麽0
範圍(" A " & ampI).Font.Color = vbRed。
如果…就會結束
然後
末端接頭
4.然後保存並單擊運行完成。