Ігор Гончаренко, Спасибо огромное! То, что нужно

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

Нужен макрос, который при наличии в ячейке слова "более ", и последующего за ним числового значения меняло это числовое значение на большее, и при этом удаляло бы слово "более ". Но только число должно меняться по последней цифре. Например:  
"более 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

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

Jack_Famous, решение от The_Prist  хорошее и действительно практически универсальное, но в моем случае это не подходит, т.к. в ячейке может быть разное количество чисел и знать порядковый номер последнего (предпоследнего) не представляется возможным..

sv2013,

1. По аналогии нужно изъять предпоследнее число вместо последнего

2. Нужно отобразить количество чисел в ячейке (по прежнему над- и подстрочные не рассматриваются в качестве чисел)

Пример прикладываю

Всем большое спасибо!
Только яблоками не кидайтесь, я в макросах не разбираюсь). Как еще изъять предпоследнее число (условия те же)?

Юрий М,все верно, условие в шапке изменил

sv2013, почти, но здесь решение частное, возможно, неудачный пример. Нужно сделать то же самое, но без привязки к словам более и менее и любым другим. Текст может быть любой

Нужна привязка к порядку числа, т.е. макрос должен определить сколько всего чисел в ячейке, а уже потом выбрал последнее

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

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

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