ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

«ü©wÄæ¦ì¨ú¥N¦r¤¸

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

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-4-20 17:50 ½s¿è

¦^´_ 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
¡@

¡@

TOP

¦^´_ 5# EddieLiang


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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD