Можно ли "прошелкать" сразу все ячейки выделенного дипапазона?

[RGZZ]

Имеется проблема с данными в экселе, после вытягивания из базы данных.
(имеется только один возможный способ вытягивания) Так вот: на выходе в листе эксель имеем данные, не приспособленные к фильтрованию и функции САБТОТАЛ, (сабтотал считает пустые ячейки), и "находящиеся" в текстовом состоянии. Если шелкать дважды по ячейке, она приходит в себя. Шелкать по всему листу удовольствия не доставляет, поэтому приходиться бороться с ячейками поиском-заменой. Можно ли это упростить? Пример в файлеsample2.rar

[EducatedFool]

Это вам поможет:

Sub СуперМакрос()
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub

Он за долю секунды приведёт все ячейки в порядок.

[RGZZ]

Это то, что нужно!
Хотя и убивает САБТОТАЛ и ЛУКАП, но их можно протянуть и потом.
Еще раз спасибо!

[EducatedFool]

Попробуйте тогда такой вариант:
(первые 2 строки листа он не затрагивает)

Sub СуперМакрос()
    ActiveSheet.UsedRange.Offset(2).Value = ActiveSheet.UsedRange.Offset(2).Value
    ActiveSheet.UsedRange.EntireColumn.AutoFit ' автоподбор ширины столбцов
End Sub

Если бы Вы указали, в каком диапазоне надо обрабатывать данные (чтобы не зацепить формулы), можно бы ло бы написать более оптимальный код.

PS: Можно, конечно, перебирать все ячейки, проверяя, формула в них или нет, но, если объём данных будет большой (тысячи строк), ждать придётся долго...

[RGZZ]

Опять столкнулся с проблемой "прощелкивания".
необходимо в прикрепленно файле фильтровать по параметру "содержит" (contains) Половина данных фильтруется, (к примеру записи, начинающиеся с 30), а половина нет ( начинающиеся с 125, к примеру).

Код, который приведен выше не приводит данные в себя. Ума не приложу, что такое.

[RGZZ]

Забыл прикрепить:sample3.rar

[IFRSoff]

Автофильтр по параметру содержит ищет только текстовые значения, а не числовые. Скорее всего, прощелкиванием вы пытались избавиться от текстового формата. Получается вы зря прощелкивали. Теперь нужно вернуть их в текстовый формат. Либо назначьте диапазону текстовый формат и прощелкайте. Либо напишите в соседнем стобце формулу
=ТЕКСТ(A9;"@")
и протяните. Затем замените исходный диапазон, полученными данными.

[RGZZ]

Блин, точно! Я думал насчет формата..
Спасибо большое!