Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заменить часть текста на текст из соседнего столбца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заменить часть текста на текст из соседнего столбца (Формулы/Formulas)
Заменить часть текста на текст из соседнего столбца
Marandi Дата: Вторник, 04.12.2018, 16:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, уважаемые форумчане.
Подскажите, пожалуйста, как заменить часть текста из столбца C на текст из столбца D?
Например, название Втулка резиновая УШМ-125/700 должно переименоваться в Втулка резиновая ИНТЕРСКОЛ УШМ-125/700
К сообщению приложен файл: 4110197.xls(38.0 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане.
Подскажите, пожалуйста, как заменить часть текста из столбца C на текст из столбца D?
Например, название Втулка резиновая УШМ-125/700 должно переименоваться в Втулка резиновая ИНТЕРСКОЛ УШМ-125/700

Автор - Marandi
Дата добавления - 04.12.2018 в 16:14
sboy Дата: Вторник, 04.12.2018, 16:59 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2238
Репутация: 634 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Можно пользовательской функцией.
[vba]
Код
Function Marandi(t As String, s As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[-А-ЯЁ]{2}.+"
            If .test(t) Then
                Marandi = .Replace(t, s)
            Else: Marandi = t & " " & s
            End If
    End With
End Function
[/vba]
К сообщению приложен файл: 4110197-1-.xls(46.5 Kb)
 
Ответить
СообщениеДобрый день.
Можно пользовательской функцией.
[vba]
Код
Function Marandi(t As String, s As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[-А-ЯЁ]{2}.+"
            If .test(t) Then
                Marandi = .Replace(t, s)
            Else: Marandi = t & " " & s
            End If
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 04.12.2018 в 16:59
Marandi Дата: Вторник, 04.12.2018, 18:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, А как ею воспользоваться?)
 
Ответить
Сообщениеsboy, А как ею воспользоваться?)

Автор - Marandi
Дата добавления - 04.12.2018 в 18:03
Marandi Дата: Вторник, 04.12.2018, 18:13 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, Нашла как. Большое спасибо!
А вы не могли бы пояснить аргументы в функции? Что они означают и за что отвечают.


Сообщение отредактировал Marandi - Вторник, 04.12.2018, 18:14
 
Ответить
Сообщениеsboy, Нашла как. Большое спасибо!
А вы не могли бы пояснить аргументы в функции? Что они означают и за что отвечают.

Автор - Marandi
Дата добавления - 04.12.2018 в 18:13
Marandi Дата: Вторник, 04.12.2018, 18:37 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, Что-то не выходит. Запрашивает сохранение документа в типе файла с поддержкой макросов. Так работает, но мне нужно оставить тип файла прежним, как у вас было сделано.
 
Ответить
Сообщениеsboy, Что-то не выходит. Запрашивает сохранение документа в типе файла с поддержкой макросов. Так работает, но мне нужно оставить тип файла прежним, как у вас было сделано.

Автор - Marandi
Дата добавления - 04.12.2018 в 18:37
sboy Дата: Среда, 05.12.2018, 10:14 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2238
Репутация: 634 ±
Замечаний: 0% ±

Excel 2010
аргументы в функции

первый исходная строка, второй - что вставить надо
файла с поддержкой макросов

чтобы работало сохраняйте файл в .xls, .xlsm, .xlsb любой на выбор.
Или функцию можно сохранить в личной книге макросов, но работать будет только этом компьютере.
Вариантов много, в зависимости от Ваших дальнейших действий с результатом замены текста.
 
Ответить
Сообщение
аргументы в функции

первый исходная строка, второй - что вставить надо
файла с поддержкой макросов

чтобы работало сохраняйте файл в .xls, .xlsm, .xlsb любой на выбор.
Или функцию можно сохранить в личной книге макросов, но работать будет только этом компьютере.
Вариантов много, в зависимости от Ваших дальнейших действий с результатом замены текста.

Автор - sboy
Дата добавления - 05.12.2018 в 10:14
Marandi Дата: Среда, 05.12.2018, 16:24 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, спасибо большое.
 
Ответить
Сообщениеsboy, спасибо большое.

Автор - Marandi
Дата добавления - 05.12.2018 в 16:24
boa Дата: Четверг, 06.12.2018, 12:15 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 278
Репутация: 57 ±
Замечаний: 0% ±

2013, 365
Marandi,
можно и формулой
Код
=IF(IFERROR(SEARCH(MID($D2;11;100);C2);0)>0;SUBSTITUTE(C2;MID($D2;11;100);D2);C2&" "&D2)
К сообщению приложен файл: 5601382.xls(45.0 Kb)


 
Ответить
СообщениеMarandi,
можно и формулой
Код
=IF(IFERROR(SEARCH(MID($D2;11;100);C2);0)>0;SUBSTITUTE(C2;MID($D2;11;100);D2);C2&" "&D2)

Автор - boa
Дата добавления - 06.12.2018 в 12:15
sboy Дата: Четверг, 06.12.2018, 16:20 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2238
Репутация: 634 ±
Замечаний: 0% ±

Excel 2010
можно и формулой

а если будет BOSCH?
 
Ответить
Сообщение
можно и формулой

а если будет BOSCH?

Автор - sboy
Дата добавления - 06.12.2018 в 16:20
boa Дата: Четверг, 06.12.2018, 16:25 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 278
Репутация: 57 ±
Замечаний: 0% ±

2013, 365
sboy, ну можно и по разделителю " " отсекать


 
Ответить
Сообщениеsboy, ну можно и по разделителю " " отсекать

Автор - boa
Дата добавления - 06.12.2018 в 16:25
boa Дата: Четверг, 06.12.2018, 16:27 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 278
Репутация: 57 ±
Замечаний: 0% ±

2013, 365
я так понял, что "ИНТЕРСКОЛ" это название фирмы и они его хотят вставлять во все прайсы


 
Ответить
Сообщениея так понял, что "ИНТЕРСКОЛ" это название фирмы и они его хотят вставлять во все прайсы

Автор - boa
Дата добавления - 06.12.2018 в 16:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заменить часть текста на текст из соседнего столбца (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!