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

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


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

Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

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

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

Леся Блиц

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

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

boa

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

Добрый день,
наверное универсальным решением будет макрос
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

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



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

22.05.2018 11:38 Скрипт написать который допишет данные в файл 569
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 848
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 821
23.01.2018 13:46 Найти вероятность повторной покупки 778
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1056
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1032
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1347
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2952
15.03.2017 15:45 автозамена картинок PowerPoint 1782
11.03.2017 13:43 Изменить нумерацию страниц 2012





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

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