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

½Ð°Ý¡GVBA§R°£ªÅ¥ÕÄæ°ÝÃD

½Ð°Ý¡GVBA§R°£ªÅ¥ÕÄæ°ÝÃD

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2018/2/4 09:43): Sub Step6() DIM I AS Integer

¥»©«³Ì«á¥Ñ jsc0518 ©ó 2018-2-4 09:31 ½s¿è

Dear ¥ý¶i,
§Ú·Q¦Û°Ê§R°£¡A¥u­n¬OÄæ¦ì(A1¡BB1¡BC1..................)¬OªÅ¥Õ®É¡A´N§R°£¾ãÄæ¦C
¦pB1ªÅ¥Õ¡A§R°£B1~Bxxxxxx(¾ãÄæ)

§Úªº»yªk¦³¿ù»~


¬O§_¥i¥HÀ°§Údebug

Sub Step6()
'§R°£ªÅ¥ÕÄæ
For i = Cells(1, 256).End(xlToLeft).Column To 1 Step -1
If Cells(1, i) = "" Then
Cells(1, i).EntireColumn.Delete Shift:=xlToLeft
End If
Next i
End Sub
Just do it.

¦^´_ 1# jsc0518

·PÁª©¥DGBKEE

TEST OK
Just do it.

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD