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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заменить часть текста на текст из соседнего столбца (Формулы/Formulas)
Заменить часть текста на текст из соседнего столбца
Marandi Дата: Вторник, 04.12.2018, 16:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Можно пользовательской функцией.
[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
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, А как ею воспользоваться?)
 
Ответить
Сообщениеsboy, А как ею воспользоваться?)
Автор - Marandi
Дата добавления - 04.12.2018 в 18:03
Marandi Дата: Вторник, 04.12.2018, 18:13 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, Что-то не выходит. Запрашивает сохранение документа в типе файла с поддержкой макросов. Так работает, но мне нужно оставить тип файла прежним, как у вас было сделано.
 
Ответить
Сообщениеsboy, Что-то не выходит. Запрашивает сохранение документа в типе файла с поддержкой макросов. Так работает, но мне нужно оставить тип файла прежним, как у вас было сделано.
Автор - Marandi
Дата добавления - 04.12.2018 в 18:37
sboy Дата: Среда, 05.12.2018, 10:14 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата Marandi, 04.12.2018 в 18:13, в сообщении № 4 ()
аргументы в функции

первый исходная строка, второй - что вставить надо
Цитата Marandi, 04.12.2018 в 18:37, в сообщении № 5 ()
файла с поддержкой макросов

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

Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата Marandi, 04.12.2018 в 18:13, в сообщении № 4 ()
аргументы в функции

первый исходная строка, второй - что вставить надо
Цитата Marandi, 04.12.2018 в 18:37, в сообщении № 5 ()
файла с поддержкой макросов

чтобы работало сохраняйте файл в .xls, .xlsm, .xlsb любой на выбор.
Или функцию можно сохранить в личной книге макросов, но работать будет только этом компьютере.
Вариантов много, в зависимости от Ваших дальнейших действий с результатом замены текста.
Автор - sboy
Дата добавления - 05.12.2018 в 10:14
Marandi Дата: Среда, 05.12.2018, 16:24 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, спасибо большое.
 
Ответить
Сообщениеsboy, спасибо большое.
Автор - Marandi
Дата добавления - 05.12.2018 в 16:24
boa Дата: Четверг, 06.12.2018, 12:15 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата boa, 06.12.2018 в 12:15, в сообщении № 8 ()
можно и формулой

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

Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата boa, 06.12.2018 в 12:15, в сообщении № 8 ()
можно и формулой

а если будет BOSCH?
Автор - sboy
Дата добавления - 06.12.2018 в 16:20
boa Дата: Четверг, 06.12.2018, 16:25 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

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

 
Ответить
Сообщениеsboy, ну можно и по разделителю " " отсекать
Автор - boa
Дата добавления - 06.12.2018 в 16:25
boa Дата: Четверг, 06.12.2018, 16:27 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

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

 
Ответить
Сообщениея так понял, что "ИНТЕРСКОЛ" это название фирмы и они его хотят вставлять во все прайсы
Автор - boa
Дата добавления - 06.12.2018 в 16:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заменить часть текста на текст из соседнего столбца (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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