­ã´£³¡ªL

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