ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤@¦¸§R°£¦hÄæ¦ì(°¸¼ÆÄæ)

¤@¦¸§R°£¦hÄæ¦ì(°¸¼ÆÄæ)

¦U¦ì§A­Ì¦n~
½Ð°Ý­n¦p¦ó§R°£°¸¼ÆÄæ¦ì(B¡BD¡BF...¤@ª½¨ì³Ì«á)?
¦]¬°¸ê®Æ«Ü¦h¡AµLªk¤@Äæ¤@Äæ§R?!

Sub sheet3()
Range("B:B,D:D,F:F,...").Select
Selection.Delete Shift:=xlToLeft
End Sub

½Ð°Ý³o¼Ëªºµ{¦¡½X­n«ç»ò­×§ï©O?
§R¨ì³Ì«áªºÄæ¦ìÀ³¸Ó­n«ç»ò¼g?
¬O¤£¬O¤£¯à¥Î...¡A¨ºÀ³¸Ó­n¥Î¤°»òªí¥Ü©O?

ÁÂÁ¤j®a!

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

TOP

¦^´_ 2# oobird

§A¦n~
ÁÂÁ§AªºÀ°¦£!
§Ú·Q½Ð°Ý³o¬q¬O¤°»ò·N«ä?
For i = 4 To [iv1].End(1).Column Step 2
Set c = Union(c, Columns(i))

TOP

§â°¸¼ÆÄ涰¦X°_¨Ó

TOP

¦^´_ 4# oobird


    ÁÂÁ§A¡A·P¿E¤£ºÉ!^^

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD