Мурад
Дата: Пятница, 06.02.2015, 16:26 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация:
18
±
Замечаний:
0% ±
Excel 2007
Добрый день! Не смог найти в Excel функцию, которая смогла бы удалить часть строки. Если возможно, с использованием макроса. Я могу сделать, применив только комбинацию функций Правсимв, Левсимв, ПСТР. Помогите, пожалуйста. Нужно именно сравнение двух строк по содержимому, а не простая вырезка N-числа символов с конца строки. Поскольку встречаются коды в середине строки.
Добрый день! Не смог найти в Excel функцию, которая смогла бы удалить часть строки. Если возможно, с использованием макроса. Я могу сделать, применив только комбинацию функций Правсимв, Левсимв, ПСТР. Помогите, пожалуйста. Нужно именно сравнение двух строк по содержимому, а не простая вырезка N-числа символов с конца строки. Поскольку встречаются коды в середине строки. Мурад
Сообщение отредактировал Мурад - Пятница, 06.02.2015, 16:27
Ответить
Сообщение Добрый день! Не смог найти в Excel функцию, которая смогла бы удалить часть строки. Если возможно, с использованием макроса. Я могу сделать, применив только комбинацию функций Правсимв, Левсимв, ПСТР. Помогите, пожалуйста. Нужно именно сравнение двух строк по содержимому, а не простая вырезка N-числа символов с конца строки. Поскольку встречаются коды в середине строки. Автор - Мурад Дата добавления - 06.02.2015 в 16:26
RAN
Дата: Пятница, 06.02.2015, 16:31 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[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]
[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] RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Пятница, 06.02.2015, 16:49
Ответить
Сообщение [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] Автор - RAN Дата добавления - 06.02.2015 в 16:31
_Boroda_
Дата: Пятница, 06.02.2015, 16:52 |
Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Не смог найти в Excel функцию, которая смогла бы удалить часть строки
А так? файл _1 Код
=ПОДСТАВИТЬ(B1;" ("&A1&")";)
или, если код может быть и в начале. Файл _2 Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(" "&B1;" ("&A1&")";))
Не смог найти в Excel функцию, которая смогла бы удалить часть строки
А так? файл _1 Код
=ПОДСТАВИТЬ(B1;" ("&A1&")";)
или, если код может быть и в начале. Файл _2 Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(" "&B1;" ("&A1&")";))
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Не смог найти в Excel функцию, которая смогла бы удалить часть строки
А так? файл _1 Код
=ПОДСТАВИТЬ(B1;" ("&A1&")";)
или, если код может быть и в начале. Файл _2 Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(" "&B1;" ("&A1&")";))
Автор - _Boroda_ Дата добавления - 06.02.2015 в 16:52
Мурад
Дата: Пятница, 06.02.2015, 17:08 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация:
18
±
Замечаний:
0% ±
Excel 2007
RAN, Саша, спасибо! Великие оптимизаторы))) Вам в крупных компаниях надо работать начальниками управлений информационных технологий! Все работает.
RAN, Саша, спасибо! Великие оптимизаторы))) Вам в крупных компаниях надо работать начальниками управлений информационных технологий! Все работает. Мурад
Ответить
Сообщение RAN, Саша, спасибо! Великие оптимизаторы))) Вам в крупных компаниях надо работать начальниками управлений информационных технологий! Все работает. Автор - Мурад Дата добавления - 06.02.2015 в 17:08