Заменить ссылки в тексте на числа, указанные таблице.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Заменить ссылки в тексте на числа, указанные таблице. (Формулы)

Brisk

Дата: Пятница, 29.11.2013, 21:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2010

Здравствуйте, уважаемые члены форума!
У меня появилась задача, которую не удалось решить самостоятельно.
Содержание задачи:
Имеется текст, содержащий ссылки на ячейки (такие как С5). Имеются значения, которые должны быть в тексте вместо этих ссылок. Каким ссылкам соответствуют какие значения указано в ТАБЛИЦЕ (см. прикрепленный файл).
Требуется: заменить ссылки в тексте на соответствующие им значения.

Через "ctrl+H" заменять уж больно долго

Буду очень благодарен, если вы поможете мне найти более быстрый способ замены!

К сообщению приложен файл: 6735498.xls (46.0 Kb)

Ответить

AlexM

Дата: Суббота, 30.11.2013, 03:09 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Как быстрее.
1. Вставить столбец слева от таблицы. Так чтобы столбец А стал столбцом В
2. В модуль1 проекта VBA вставить код макроса
[vba]

Код

Sub Txt_Func()
For Each cell In Selection
If cell.Value <> "" Then cell.Value = "=" & Replace(cell.Value, ",", ".")
Next
End Sub

[/vba]
3. Выделить таблицу с текстом.
4. Запустить макрос.

PS. Если в тексте есть функции, макрос останавливается на ошибке.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Суббота, 30.11.2013, 03:39

Ответить

SergeyKorotun

Дата: Суббота, 30.11.2013, 12:57 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 301

Репутация: 15 ±

Замечаний: 0% ±

Excel 2007

[vba]

Код

Sub qwerty()
    Dim i As Long
    Dim j As Long

    Application.ScreenUpdating = False
    For i = 5 To 104
        For j = 98 To 5 Step -1
            Cells(i, 7).Value = Replace(Cells(i, 7).Value, Cells(j, 1), Cells(j, 2))
            Cells(i, 8).Value = Replace(Cells(i, 8).Value, Cells(j, 3), Cells(j, 4))
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

Brisk

Дата: Суббота, 30.11.2013, 15:21 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

2010

Задача решена.
AlexM, SergeyKorotun, Большое спасибо вам за помощь!
SergeyKorotun, Очень выручил ваш макрос. Работает безупречно specool

Ответить

Заменить ссылки в тексте на числа, указанные таблице. (Формулы)

Страница 1 из 1
1