[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: irakitin2014  
Макрос удаления нулей в книге
irakitin2014Дата: Суббота, 03.03.2018, 11:58 | Сообщение # 1
Генерал-майор
Группа: Модераторы
Сообщений: 312
Репутация: 6
Статус: Offline
Очень часто книга разрастается до неприемлемых размеров. И одной из причин могут быть простые нули в ячейках. А ведь их может быть и не видно, если вы выключили режим " показывать  нули в ячейках, содержащие нулевые значения". Вот этот маленький макрос поможет вам избавиться от этих ненужных нулей. Макрос уберет только 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 и вызывается по мере необходимости.Например, когда удаляются формулы типа СУММПРОИЗВ и вместо них вставляются значения



для спасибов ЯД 41001877306852
 
  • Страница 1 из 1
  • 1
Поиск: