- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-3-27
|
¥»©«³Ì«á¥Ñ ã´£³¡ª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
¡@
¡@ |
|