макрос чистки нулей в ячейках

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

макрос чистки нулей в ячейках (Макросы/Sub)

AB0885

Дата: Среда, 30.03.2022, 07:43 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 60

Репутация: 0 ±

Замечаний: 20% ±

Здравствуйте, на просторах сети нашёл макрос, который будет чистить ячейки с нолями делая их "пустыми". Пока пробовал его на добавочном листе работал идеально. Проверив его решил его вставить в рабочий лист и тут появилась ошибка 400. Путём проб нашёл где появляется ошибка. У меня рабочий файл состоит из таблицы в каждую ячейку ведёт ссылка с другого листа, если ячейка объединённая и содержит ссылку, то макрос проходя и выполняя работу останавливается именно на объединённой выдавая ошибку. Прошу помочь с макросом. Макрос должен чистить все ячейки с нулями в том числе и объединённые. (Так же имеется проблема со временем выполнения этого макроса). [vba]

Код

Sub ноль()
'
' ноль Макрос
'

'
       For j = 1 To 300
        For i = 1 To 500
            While Cells(i, j) <> "" And Cells(i, j) = 0
               Cells(i, j).ClearContents
            Wend
        Next i
    Next j
    End Sub

[/vba]