- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 15# idnoidno
For Each Rng In ¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) '²Ä¤@¦C"°ÊºA"Ū¨ú°µ´`Àô
©Ò¿×ªº°ÊºA¬O«ü¡A·í§AÀx¦s®æ¦³"¼W´î"®É¤´¥i¥H¨Ì§Aªº¼W´î¨Ó°µÅª¨ú¡A¨Ò¦p¡G¥u¦³¥Ò¤A¤þ3Ä楦´N¥u°µ3¦¸´`Àô¡AY¼W¥[2Äæ«h¥i¥H°µ5¦¸ ´`Àô
¤W± Rng ¬OÀx¦s®æ(Range)ªºÅܼơA
¤u§@ªí1.Range("B1", ¤u§@ªí1.Cells(1, Columns.Count).End(xlToLeft).Address) ¡A«h¬O½d³ò·N«ä¬O«áB1³o¤@Äæ¶}©l¨ì¡AColumns.Count¬O©Ò¦³Ä檺¼Æ¥Ø¡A
End(xlToLeft).Address¬O±q³Ì«áªºÀx¦s®æ´M§ä¦^¨Ó¹J¨ìªº²Ä¤@Ó¦³ÈªºÀx¦s®æ¦ì§}
ÁÙ¦³·í¹B¦æµ{§Ç®Éè¶}©l³Ì¦n¥Î"F8"¨Ó¤@¦æ¤@¦æ¬Ý¡A¤j³¡¥÷§Ú¥u¦³¥Î"°Ï°ìÅܼƵøµ¡"ºÊ¬ÝÅÜ¤Æ |
|