GBKEE

回復 20# syuan
沒有錯誤啊!

1. Sub Ex()
   
2.     Dim A As Range
   
3.     With Worksheets("Sheet1")
   
4.         .[b5] = "JIS"          '測試用
   
5.         For Each A In .UsedRange
   
6.             If InStr(A.Value, "JIS") > 0 And A.Value <> "" Then
   
7.            'If InStr(A.Value, "JIS ") > 0 And A.Value <> "" Then '這是你的程式碼
   
8.                 MsgBox A.Address
   
9.             End If
   
10.         Next
    
11.     End With
    
12. End Sub

複製代碼