Нашел как удалять формулы из всей книги, применил и работает, остаются только значения. Нашел и вторую часть замысла - удалить ноли, путем автозамены через макрос, пример взял с этого же сайта, но там всего дня двух столбцов было условие, а мне нужно на всю книгу. Тут я в тупике.
Первая часть:
Это вот чудо удаляет формулы оставляя значения (на удивление быстро, случайно нашел макрос на форумах), в книге более 100 листов, каждый заполнен прилично. Вес книги от 10мб до 56(в среднем). Макрос работает, к нему претензий нет.
Вторая часть:
это уже удаление нолей. Уже сам пытался нахимичить рабочую версию, но никак. Для всего листа не работает, а когда что-то пытается запуститься, то выдает ошибку, типа: "Эта команда не может выполнятся для всех листов". Может чего и путаю, но вот с этим макросом у меня проблема. Нужно, чтобы он так же как и первый выполнялся во всей книге.
Изначально выглядел данный макрос так:
После чего я попытался его на всю книгу применить, но увы...
Помогите, пожалуйста.
Первая часть:
Код |
---|
Sub DelFormula() For Each sh In ActiveWorkbook.Sheets sh.UsedRange.Value = sh.UsedRange.Value Next End Sub |
Это вот чудо удаляет формулы оставляя значения (на удивление быстро, случайно нашел макрос на форумах), в книге более 100 листов, каждый заполнен прилично. Вес книги от 10мб до 56(в среднем). Макрос работает, к нему претензий нет.
Вторая часть:
Код |
---|
Sub Del_zero() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Replace What:="0", Replacement:="", LookAt:=xlWhole Next End Sub |
это уже удаление нолей. Уже сам пытался нахимичить рабочую версию, но никак. Для всего листа не работает, а когда что-то пытается запуститься, то выдает ошибку, типа: "Эта команда не может выполнятся для всех листов". Может чего и путаю, но вот с этим макросом у меня проблема. Нужно, чтобы он так же как и первый выполнялся во всей книге.
Изначально выглядел данный макрос так:
Код |
---|
Sub Удалить_нули() Columns("A:B").Replace What:="0", Replacement:="", LookAt:=xlWhole End Sub |
После чего я попытался его на всю книгу применить, но увы...
Помогите, пожалуйста.