Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Читайте новые сообщения форума форума в RRS-агрегаторах

Автор Тема: Замена значений заданными уникальными значениями.  (Прочитано 385 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Леся Блиц

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Буду благодарна за Вашу помощь.  Есть некий текст состоящий из букв и чисел. Числа в тексте не повторяются. Как заменить эти числа на другие уникальные числа (порядок вставки чисел не важен. Числа имеют разную длину. Числа можно воспринимать как текст, арифметических операций с ними выполняться не будет). Короткий пример во вложении. Есть идея, как это реализовать разбив на отдельные ячейки и заменяя каждую по отдельности, но хотелось бы этого избежать.
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 543
  • Доброта спасет мир...

Добрый день,
наверное универсальным решением будет макрос
Option Explicit

Function MeSplit(sText As String)
    Dim i&, str$
    str = sText
    For i = 1 To Len(sText)
     If Not IsNumeric(Mid(sText, i, 1)) Then str = Replace(str, Mid(sText, i, 1), " ")
    Next
    MeSplit = Application.WorksheetFunction.Trim(str)
End Function

Function MeReplace(sText As String, ParamArray Values() As Variant)
    Dim i&:
    Dim ArrRep: ArrRep = Split(MeSplit(sText), " ")
    For i = LBound(ArrRep) To UBound(ArrRep)
        sText = Replace(sText, ArrRep(i), Values(0)(i + 1).Value)
    Next
    MeReplace = sText
End Function
во вложении показано какая функция что возвращает
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Леся Блиц

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Огромное спасибо! То, что надо!
« Последнее редактирование: 22.02.2018, 00:35:03 от Леся Блиц »
Записан

Леся Блиц

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

К сожалению, не учла я тот момент, что ячейка не может вместить нужного мне количества символов для задания исходного перерабатываемого текста((
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 543
  • Доброта спасет мир...
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра
 



Темы без ответов

30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 464
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 1266
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 1264
23.01.2018 13:46 Найти вероятность повторной покупки 1150
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1614
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1416
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1807
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 3609
15.03.2017 15:45 автозамена картинок PowerPoint 2046
11.03.2017 13:43 Изменить нумерацию страниц 2164





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.107 секунд. Запросов: 105.