Очистить видимый диапазон.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить видимый диапазон. (Макросы/Sub)

Amator

Дата: Среда, 22.04.2015, 23:17 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Прошу помощи. Во вложении пример очистки диапазона ячеек (А4:Q171) по условию в которых нет заливки. На самом деле в рабочей таблице около 6000 строк и большой вес файла. И очистка ячеек проходит очень долго. Посетила мысль сначала применить фильтр и уже потом очистить видимый диапазон (без заливки).Вот и прошу помощи с макросом по очистке видимого диапазона.

К сообщению приложен файл: 2770573.xlsm (40.3 Kb)

Ответить

Manyasha

Дата: Среда, 22.04.2015, 23:43 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Amator, насколько я понимаю, очищать Вам нужно ячейки, в которых нет формул, только числа (кроме столбца D). Если правильно, то можно так[vba]

Код

Sub test()
     On Error Resume Next
     Range("A4:C172").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
     Range("E4:Q172").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub

[/vba]
Повесила макрос на кнопку "очистить"

К сообщению приложен файл: 2770573_1.xlsm (40.9 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Amator

Дата: Четверг, 23.04.2015, 08:01 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Manyasha, спасибо большое. Ваш код работает как часы .

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить видимый диапазон. (Макросы/Sub)

Страница 1 из 1
1