標題: [發問] 刪除小計為0的欄 [打印本頁]

---

作者: adam2010    時間: 2019-12-7 22:49     標題: 刪除小計為0的欄

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

[attach]31525[/attach]

---

作者: adam2010    時間: 2019-12-8 00:32

增加附檔
[attach]31526[/attach]

---

作者: 准提部林    時間: 2019-12-8 10:44

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    時間: 2019-12-8 13:36

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)