°j°é½Ð¯q¡A¨Ï¥ÎFor Next³¯z¦¡¡GYb¦³È«ha«Ø¥ßx
- ©«¤l
- 233
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 292
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXp
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-1-6
- ³Ì«áµn¿ý
- 2024-3-8
|
°j°é½Ð¯q¡A¨Ï¥ÎFor Next³¯z¦¡¡GYb¦³È«ha«Ø¥ßx
·j´M¤F°j°é©R¥Oªº±Ð¾Ç©M°Q½×¡AÁÙ¬O¤£¤Ó©úÁA¦p¦ó¨Ï¥Î
·Q½Ð±Ð¦U¦ì«e½úÌ
Y
B6:B43,B59:B96
¦³¦r¤¸¡A«h°õ¦æ¥¨¶°«á¡A¦b¥ª¤èAÄæ¦ì¦Û°Ê¿é¤J"x"¦r¸¹
°j°é½d¨Ò.rar (15.2 KB)
|
|
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# jackson7015 - Sub xx()
- For Each B In Union([B6:B43], [B59:B96])
- If B <> "" Then B.Offset(, -1) = "x"
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
- Sub YY()
- For Each C In [B:B].SpecialCells(2)
- C(1, 0) = "X"
- Next
- End Sub
½Æ»s¥N½X ³o¼Ë¥iÁקK´`Àô¨ìªÅ¥ÕÀx¦s®æ |
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¦^´_ 3# oobird
½Ð°Ý¤@¤U, µ{¦¡¤¤ ªº C ÅܼÆ, ¬O Range ª«¥ó¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
·íµM¬O¡C
§A¥i¥H¥ÎMsgBox TypeName(c)
±oª¾ÅܼÆÃþ«¬ |
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¥»©«³Ì«á¥Ñ alumi ©ó 2012-5-18 23:25 ½s¿è
·íµM¬O¡C
§A¥i¥H¥ÎMsgBox TypeName(c)
±oª¾ÅܼÆÃþ«¬
oobird µoªí©ó 2012-5-18 15:03
ÁÂÁÂ~~GBKEE |
|
|
|
|
|
|