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
發表於 2019-12-7 22:49
| 
發表於 2019-12-8 10:44
| 