Исключение из одной строки части другой строки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение из одной строки части другой строки (Макросы/Sub)

Мурад

Дата: Пятница, 06.02.2015, 16:26 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Добрый день! Не смог найти в Excel функцию, которая смогла бы удалить часть строки. Если возможно, с использованием макроса.
Я могу сделать, применив только комбинацию функций Правсимв, Левсимв, ПСТР. Помогите, пожалуйста.
Нужно именно сравнение двух строк по содержимому, а не простая вырезка N-числа символов с конца строки. Поскольку встречаются коды в середине строки.

К сообщению приложен файл: 4320900.xlsx (8.2 Kb)

Сообщение отредактировал Мурад - Пятница, 06.02.2015, 16:27

Ответить

RAN

Дата: Пятница, 06.02.2015, 16:31 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Function Мяу$(r$)
Мяу = Left$(r, InStrRev(r, "(") - 1)
End Function

[/vba]

[vba]

Код

Function Мяв$(r$, rr$)
Мяв = Replace(r, "(" & rr & ")", "")
End Function

[/vba]

или так, если текст возможен без скобок
[vba]

Код

Function МяуМяв$(r$, rr$)
МяуМяв = Replace(Replace(r, rr, ""), "()", "")
End Function

[/vba]

К сообщению приложен файл: 4320900.xlsm (14.6 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 06.02.2015, 16:49

Ответить

_Boroda_

Дата: Пятница, 06.02.2015, 16:52 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата Мурад, 06.02.2015 в 16:26, в сообщении № 1

Не смог найти в Excel функцию, которая смогла бы удалить часть строки

А так? файл _1

Код

=ПОДСТАВИТЬ(B1;" ("&A1&")";)

или, если код может быть и в начале. Файл _2

Код

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(" "&B1;" ("&A1&")";))

К сообщению приложен файл: 4320900_1.xlsx (9.5 Kb) · 4320900_2.xlsx (9.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мурад

Дата: Пятница, 06.02.2015, 17:08 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

RAN, Саша, спасибо! Великие оптимизаторы))) Вам в крупных компаниях надо работать начальниками управлений информационных технологий!
Все работает.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение из одной строки части другой строки (Макросы/Sub)

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