Вопрос : первенствуйте - если клетка пуста, то колонка delete вся

Hi,
I имеет электронная таблица внутри первенствовать.

If любая клетка в рядке 2 = 0, котор я хочу уничтожить то все columnn.

Is это по возможности?
Sm17ch class=

Ответ : первенствуйте - если клетка пуста, то колонка delete вся

hth

Дэйв

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Sub KillTwo () Тусклое rng1 как ряд Тусклое lngRow как длиной Application.ScreenUpdating = ложно Установите rng1 = пересеките (ActiveSheet.UsedRange, рядки (2)) Для lngRow = rng1.Columns.Count до 1 раздел -1 Если rng1.Cells, то (lngRow). Значение = «0» после этого rng1.Cells (lngRow) .EntireColumn.Delete Следующее lngRow Application.ScreenUpdating = True Подводная лодка конца