Yana239
Дата: Суббота, 26.11.2016, 03:05 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Добрый день. Уважаемые форумчане, я правильно понимаю, чтобы мне удалить все знаки справа до первой запятой (есть еще и вторая запятая) мне нужно использовать такую сложную формулу (см вложение). Более простого решения нет?
Добрый день. Уважаемые форумчане, я правильно понимаю, чтобы мне удалить все знаки справа до первой запятой (есть еще и вторая запятая) мне нужно использовать такую сложную формулу (см вложение). Более простого решения нет? Yana239
Ответить
Сообщение Добрый день. Уважаемые форумчане, я правильно понимаю, чтобы мне удалить все знаки справа до первой запятой (есть еще и вторая запятая) мне нужно использовать такую сложную формулу (см вложение). Более простого решения нет? Автор - Yana239 Дата добавления - 26.11.2016 в 03:05
krosav4ig
Дата: Суббота, 26.11.2016, 04:49 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 26.11.2016, 04:52
Ответить
Сообщение Здравствуйте Можно как-то такКод
=ЛЕВБ(B3;ДЛСТР(B3)-ДЛСТР(СЖПРОБЕЛЫ(0&ПРАВБ(ПОДСТАВИТЬ(B3;",";ПОВТОР(" ";999));999))))
илиКод
=ЛЕВБ(B3;ПРОСМОТР(;-1/(ПСТР(B3;СТРОКА(1:99);1)=",");СТРОКА(1:99))-1)
Автор - krosav4ig Дата добавления - 26.11.2016 в 04:49
sv2014
Дата: Суббота, 26.11.2016, 06:47 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Yana239 , вариант функции vvvv в столбце C или yyyy в столбце E или zzzz в столбце G [vba]Код
Function zzzz$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^(.+),(?:.+)$": .Global = True zzzz = .Replace(t, "$1") End With End Function
[/vba] [vba]Код
Function yyyy(t$) yyyy = Left(t, InStrRev(t, ",") - 1) End Function
[/vba] [vba]Код
Function vvvv$(t$) vvvv = StrReverse(Split(StrReverse(t), ",", 2)(1)) End Function
[/vba]
Yana239 , вариант функции vvvv в столбце C или yyyy в столбце E или zzzz в столбце G [vba]Код
Function zzzz$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^(.+),(?:.+)$": .Global = True zzzz = .Replace(t, "$1") End With End Function
[/vba] [vba]Код
Function yyyy(t$) yyyy = Left(t, InStrRev(t, ",") - 1) End Function
[/vba] [vba]Код
Function vvvv$(t$) vvvv = StrReverse(Split(StrReverse(t), ",", 2)(1)) End Function
[/vba]sv2014
Сообщение отредактировал sv2014 - Суббота, 26.11.2016, 11:17
Ответить
Сообщение Yana239 , вариант функции vvvv в столбце C или yyyy в столбце E или zzzz в столбце G [vba]Код
Function zzzz$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "^(.+),(?:.+)$": .Global = True zzzz = .Replace(t, "$1") End With End Function
[/vba] [vba]Код
Function yyyy(t$) yyyy = Left(t, InStrRev(t, ",") - 1) End Function
[/vba] [vba]Код
Function vvvv$(t$) vvvv = StrReverse(Split(StrReverse(t), ",", 2)(1)) End Function
[/vba]Автор - sv2014 Дата добавления - 26.11.2016 в 06:47
китин
Дата: Суббота, 26.11.2016, 08:28 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
можно и ттак извратиться Код
=ПСТР(B3;1;ПРОСМОТР(2;1/(ПСТР(B3;СТРОКА($1:$99);1)=",");СТРОКА($1:$99))-1)
можно и ттак извратиться Код
=ПСТР(B3;1;ПРОСМОТР(2;1/(ПСТР(B3;СТРОКА($1:$99);1)=",");СТРОКА($1:$99))-1)
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение можно и ттак извратиться Код
=ПСТР(B3;1;ПРОСМОТР(2;1/(ПСТР(B3;СТРОКА($1:$99);1)=",");СТРОКА($1:$99))-1)
Автор - китин Дата добавления - 26.11.2016 в 08:28
Udik
Дата: Суббота, 26.11.2016, 14:16 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
ну и мой вариантКод
=ЛЕВСИМВ(B4;НАЙТИ(" ";ПОДСТАВИТЬ(B4;",";" ";2))-1)
ну и мой вариантКод
=ЛЕВСИМВ(B4;НАЙТИ(" ";ПОДСТАВИТЬ(B4;",";" ";2))-1)
Udik
К сообщению приложен файл:
0t.xlsx
(10.7 Kb)
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение ну и мой вариантКод
=ЛЕВСИМВ(B4;НАЙТИ(" ";ПОДСТАВИТЬ(B4;",";" ";2))-1)
Автор - Udik Дата добавления - 26.11.2016 в 14:16
Yana239
Дата: Суббота, 26.11.2016, 17:05 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо большое за ответы
Ответить
Сообщение Спасибо большое за ответы Автор - Yana239 Дата добавления - 26.11.2016 в 17:05