GBKEE

¦^´_ 20# syuan
¨S¦³¿ù»~°Ú!

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 '³o¬O§Aªºµ{¦¡½X
   
8.                 MsgBox A.Address
   
9.             End If
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X