OFF: Как в Excel автоматически пустые ячейки заполнить нулями ? #160206

Можите привести пример макроса...или посоветуйте как. Из программы получаем отчёт (неважно с какой программы) в Excel. Очет большой, и там встречаются пустые ячейки. А потом  этот отчёт загружается в другую программу :) и там при загрузке всё зависает, если встречает пустые ячейки, необходимо проставить по всем таким ячейкам 0. В ручную очень припаристо это делать. есть какой-нибудь способ облегчить процесс? Спасибо...

создай еще одну колонку, в которой напиши = А + 0, формат - число

А нельзя поправить загрузку в другой программе?

а если просто проверку сделать ... при загрузке

Sub a For Each c In UsedRange    If IsEmpty(c) Then        c.Value = 0    End If Next End Sub

Тык а как это запустить ? :)

For Each с In UsedRange в этой строке ошибка...выдаёт run time error 13

(5,6) Засунь это в модуль нужного листа.

Тык: смотри, Cервис - Макрос - Выполнить... выбираю макрос, с кодом что ты написал... выдаёт  run time error 13 Или что я неправильно делпаю?

См.

+ Или подправь его так: Sub a For Each c In ActiveSheet.UsedRange   If IsEmpty(c) Then с.Value = 0 Next End Sub

Тык run time error 424 уже не 13 :)

Пля, приколист...

так а что такое ?

Надо ждать...

Перебивай руками.

Тык: :))  run time error 424 - значит надо руками всё бить ? :)