Очень часто книга разрастается до неприемлемых размеров. И одной из причин могут быть простые нули в ячейках. А ведь их может быть и не видно, если вы выключили режим " показывать нули в ячейках, содержащие нулевые значения". Вот этот маленький макрос поможет вам избавиться от этих ненужных нулей. Макрос уберет только 0 из ячейки и не тронет 0 в 2018 год, к примеру
Код
Dim sh As Worksheet, r As Range
If ActiveWindow.SelectedSheets.Count > 1 Then
For Each sh In ActiveWindow.SelectedSheets
Set r = sh.UsedRange
r.Replace 0, "", xlWhole
Next
Else
If MsgBox("Заменить 0 во всей книге?", vbYesNo) = vbNo Then
If Selection.Count = 1 Then Set r = ActiveSheet.UsedRange Else Set r = Selection
r.Replace 0, "", xlWhole
Else
For Each sh In ActiveWorkbook.Sheets
Set r = sh.UsedRange
r.Replace 0, "", xlWhole
Next
End If
End If
End Sub
Лично у меня он спокойно лежит в PERSONAL и вызывается по мере необходимости.Например, когда удаляются формулы типа СУММПРОИЗВ и вместо них вставляются значения
