Ãö©ó·Q§â¸ê®Æ¶K¦b¤@¦æªºµ{¦¡
- ©«¤l
- 5
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- Window2003
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-4
- ³Ì«áµn¿ý
- 2011-10-28
|
Ãö©ó·Q§â¸ê®Æ¶K¦b¤@¦æªºµ{¦¡
¦U¦ì¤j¤j¦n
·Q½Ð°Ý¤@¤U
¦pªG§Ú¦³¤@²Õ¸ê®Æ
¦p A B C ¤TÓColumn¤U ¤À§O¦³¤@¨Ç¼Æ¦r
1 4 7
2 5 8
3 6 9
§Ún«ç»ò¼gVBA §â¥L¾ã²z¦¨³£¶K¦bA Column¤U
¦p A
1
2
3
4
....
9
¦]¬°¹ê»Ú¸ê®Æ¤ñ¸û¦hColumn ©Ò¥H·|·Q½Ð°Ý¦p¦ó¼g¦bvba¸Ì±©O?
ÁÂÁ¦U¦ì¤j¤j |
|
|
|
|
|
|
- ©«¤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
|
For c = 2 To [iv1].End(1).Column
Columns(c).SpecialCells(2).Cut [a65536].End(3)(2, 1)
Next |
|
|
|
|
|
|