[發問] 刪除小計為0的欄

adam2010

請教各位高手，想要在巨集中增加刪除所有小計=0的欄位該怎麼寫

下載 (103.74 KB)

2019-12-7 22:48

adam2010

增加附檔
Excel-20191207.rar (8.4 KB)

下載次數: 7

2019-12-8 00:31

准提部林

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

adam2010

感謝版主准提部林協助，讓我省下不少時間，真想請你喝杯咖啡~~