­ã´£³¡ªL

Sub LoopSheets()
Dim ws As Worksheet
For Each ws In Sheets
¡@¡@ws.[J:J].Replace "111", "§A¦n", Lookat:=xlWhole
Next
End Sub

­ã´£³¡ªL

¦^´_ 3# EddieLiang


Sub LoopSheets()
Dim Sht As Worksheet, xR As Range
For Each Sht In Sheets
¡@¡@For Each xR In Sht.[J4:J20]
¡@¡@¡@¡@If xR & "" = "111" And xR(1, 0) <> "" Then xR = "§A¦n"
¡@¡@Next
Next
End Sub

xR(1, 0)¡@©¹¥ª¤@®æ¡A§Y¬O¢ñÄæ¡I

©Î¡G
Sub LoopSheets()
Dim Sht As Worksheet, xR As Range
For Each Sht In Sheets
    For Each xR In Range(Sht.[J4], Sht.[J65536].End(xlUp))¡@§ì¸ê®Æ½d³ò
        If xR & "" = "111" And xR(1, 0) <> "" Then xR = "§A¦n"
    Next
Next
End Sub
¡@

¡@

­ã´£³¡ªL

¦^´_ 5# EddieLiang


Sht.[J65536].End(xlUp) §ì¢ØÄæ³Ì«á¤@­Ó«DªÅÀx¦s®æ

­ã´£³¡ªL

¦^´_ 7# EddieLiang


Sub format()
Dim xR As Range
With Sheets("Sheet1")
¡@¡@¡@For Each xR In Range(.[J4], .[J65536].End(xlUp))
¡@¡@¡@¡@¡@If xR & "" <> "§¹¦¨(finish)" And xR(1, 0) <> "" Then xR = "Wait for test" '§PÂ_iÄ榳µL¸ê®Æ±a¤J¦r¦ê
¡@¡@¡@Next
End With
End Sub