Удаление столбца по условию...

[Klim Bassenger]

Как удалить все столбцы из листа, где во второй строке значение "0" (ноль)???

[EducatedFool]

Sub test()
    Application.ScreenUpdating = False
    Dim sh As Worksheet: Set sh = ActiveSheet: [a1].Select
    Dim ra As Range, cell As Range, zero As Range: Set ra = Intersect(sh.UsedRange, sh.Rows(2))
    For Each cell In ra.Cells
        If cell.Text = 0 Then If zero Is Nothing Then Set zero = cell Else Set zero = Union(zero, cell)
    Next
    If Not zero Is Nothing Then zero.EntireColumn.Select:    'zero.EntireColumn.Delete
End Sub

[Klim Bassenger]

Спасибо, EducatedFool!!!!
Как всегда в точку попал!!!