1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Sub ZeroEm () Тусклый c как ряд Тусклое rng1 как ряд Тусклый ws как рабочий лист Установите ws = ряд («AllAll»). Родитель Для каждого c в ряде («dings») Если UCase$ (c.Value) = «ПОИСТИНЕ» после этого Установите rng1 = пересеките (ряд («AllAll»), ws. Рядки (c.Row)) rng1.Value = «0» Закончитесь если Затем Подводная лодка конца