Добрый день!
Как можно оптимизировать (ускорить) работу с такой объемной таблицей с данными? В оригинальном файле больше 70000 строк (больше 8000 товаров), его не загрузить из-за превышения объема файла, поэтому в приложенном файле только маленькая его часть для понимания.
Часто приходится пользоваться поиском - работает всё весьма медленно из-за объема.  

Доброго времени суток!

Нужен макрос, который при наличии в ячейке слова "более ", и последующего за ним числового значения меняло это числовое значение на большее, и при этом удаляло бы слово "более ". Но только число должно меняться по последней цифре. Например:  
"более 100"  => "101"
"более 0,001 => "0,002"
То есть слово "более" + пробел + числовое значение заменяется на числовое значение +1 к последней цифре
В ячейках кроме этого может присутствовать какой-угодно текст.
Сейчас это работает следующим образом: создал макрос, для которого прописал условия замены типа:и так до 99. Работает в selection хорошо, однако код получается слишком большой, и кроме того таким образом можно прописать условия замены только для двухзначных чисел. Для трехзначных чисел придется делать уже  999 условий и т.п. Нужно чтобы единичка прибавлялась именно к последней цифре, вне зависимости от значности чисел. Как можно оптимизировать массовую замену, или есть какой-то другой способ это сделать?

Всем доброго времени суток!

Имеется большой массив данных в одном столбце, внутри этих данных могут быть повторяющие значения,  (т.е. несколько одинаковых значений идут друг за другом, в других местах они больше не встречаются, т.е. уже отсортированы). Нужно, чтобы эти повторяющие значения объединялись между собой.
В архивной теме нашел давнее решение от автора слэна привожу в примере и тут :

Скрытый текст

Sub Макрос1() ' Dim i&, n&, arr, rn& n = Cells(Rows.Count, 1).End(xlUp).Row arr = Cells(1, 1).Resize(n) rn = 1 For i = 2 To n If arr(i, 1) <> arr(i - 1, 1) Then With Range(Cells(rn, 1), Cells(i - 1, 1)) .HorizontalAlignment = xlGeneral .VerticalAlignment = xlTop .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With rn = i End If Next End Sub

Данный макрос работает, но только если данные находятся в первом столбце, хотелось бы получить от макроса более универсальности, чтобы макрос работал в выделенном диапазоне. Кроме того, при работе макроса выскакивает окно, что объединение приведет к потере данных, хотелось бы от этого, по возможности, тоже избавиться.  

Доброго времени суток!

Вопрос в следующем: как изъять из ячейки только последнее число. Решений относительно отбора всех чисел (цифр) из ячейки несколько, а алгоритма по которому будет происходить отбор числа определенного порядка (первого, второго, последнего и т.п в ячейке.) я не нашел. Т.е. макрос (или формула) должен подсчитать общее количество чисел в ячейке и отобразить последнее число. (нужен именно такой алгоритм, чтобы потом можно было  отобрать, например, только первое, второе число)

Надстрочные и подстрочные числа не рассматриваются как числа