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

[µo°Ý] §R°£¤p­p¬°0ªºÄæ

[µo°Ý] §R°£¤p­p¬°0ªºÄæ

½Ð±Ð¦U¦ì°ª¤â¡A·Q­n¦b¥¨¶°¤¤¼W¥[§R°£©Ò¦³¤p­p=0ªºÄæ¦ì¸Ó«ç»ò¼g

Excel-20191207.jpg
2019-12-7 22:48
Adam

¼W¥[ªþÀÉ
Excel-20191207.rar (8.4 KB)
Adam

TOP

Sub TEST()
Dim i&, xU As Range
For i = 9 To Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(1, i) = 0 Then
       If xU Is Nothing Then Set xU = Cells(1, i) Else Set xU = Union(xU, Cells(1, i))
    End If
Next i
If Not xU Is Nothing Then xU.EntireColumn.Delete
End Sub

TOP

·PÁª©¥D­ã´£³¡ªL¨ó§U¡AÅý§Ú¬Ù¤U¤£¤Ö®É¶¡¡A¯u·Q½Ð§A³ÜªM©@°Ø~~
Adam

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD