- ©«¤l
- 47
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2012-3-10
|
¦^´_ 23# Hsieh
ÁÂÁ§AªºÀ°¦£!
§Ú¥Ø«e¬O¤À¨âÓµ{¦¡°õ¦æ¡G
²Ä¤@¡G¥ý±N©Ò¦³ªÑ»ùªºÄæ¦ì³£§R°£
Sub delcol()
Dim i%, c As Range
Set c = Columns(2)
For i = 4 To [iv1].End(1).Column Step 2
Set c = Union(c, Columns(i))
Next
c.Delete
End Sub
²Ä¤G¡G¦A±NªÅ®æ§R°£¡A§â¸ê®Æ©¹¤W¸É¡A¦b«á¦A±N¨äµ²ªGÂà¸m¡C
Sub ex1()
Columns("B:CF").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
¦]¬°§Ú«á¨Ó·Q»¡¡A§Ú¥ý¤£n³]©w©Ò¿×¦³§¹¦¨¶ñÅvªº¤Ñ¼Æ¡A
³o¼Ë¼u©Ê¤ñ¸û¤j!¦Ó§Ú¨ì®ÉÔ·Q¬Ý"´X¤Ñ"§¹¦¨¶ñÅvªº¤½¥q¡A
¦A¥ÎEXCEL¿z¿ï¥\¯à§Y¥i!
¯uªº«ÜÁÂÁ§A@¤ßªºÀ°¦£!
^^ |
|