Здравствуйте!
Прошу помочь по возможности в написании следующего макроса...
Есть потребность удалять формулы и значения кроме текстовых в выделенном диапазоне.
Я ориентировался на работу окна "Выделение группы ячеек" (F5).
Сначала записал макрос для констант, затем для формул - без галочки для текста.
К сожалению не смог прописать, чтобы две команды выполнялись сразу - т.е. сразу выделяли ячейки по условиям для констант и формул.
Получилось только выполнить сначала одну операцию, затем другую. Да и ещё прописать обход ошибки 1004, в случае если условия одной из команд не выполняются (т.е. данные отсутствуют):
В итоге получилось, что нужно, но условия действуют для всего листа, а хотелось бы только для выделенного диапазона.
Может кто подсказать, как это лучше сделать?
Мои наработки (пример, что получилось) в файле...
Благодарю!
Прошу помочь по возможности в написании следующего макроса...
Есть потребность удалять формулы и значения кроме текстовых в выделенном диапазоне.
Я ориентировался на работу окна "Выделение группы ячеек" (F5).
Сначала записал макрос для констант, затем для формул - без галочки для текста.
К сожалению не смог прописать, чтобы две команды выполнялись сразу - т.е. сразу выделяли ячейки по условиям для констант и формул.
Получилось только выполнить сначала одну операцию, затем другую. Да и ещё прописать обход ошибки 1004, в случае если условия одной из команд не выполняются (т.е. данные отсутствуют):
Код |
---|
Sub ClearContent() On Error Resume Next: en& = Err.Number Range("A1").Select Selection.SpecialCells(xlCellTypeConstants, 21).Select 'выделить все константы, кроме текста Selection.ClearContents 'удалить выделенное Range("A1").Select Selection.SpecialCells(xlCellTypeFormulas, 21).Select 'выделить все формулы, кроме текстовых Selection.ClearContents 'удалить выделенное If en& = 0 Then Err.Clear End Sub |
Может кто подсказать, как это лучше сделать?
Мои наработки (пример, что получилось) в файле...
Благодарю!