Выбрать нужный отрезок текста из строки
Chelovekov
Дата: Вторник, 05.06.2018, 02:13 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 307
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Здравствуйте Гуры Экселя, прошу помочь выбрать нужное часть текста из строки. Пример прилагаю
Здравствуйте Гуры Экселя, прошу помочь выбрать нужное часть текста из строки. Пример прилагаю Chelovekov
Ответить
Сообщение Здравствуйте Гуры Экселя, прошу помочь выбрать нужное часть текста из строки. Пример прилагаю Автор - Chelovekov Дата добавления - 05.06.2018 в 02:13
Nic70y
Дата: Вторник, 05.06.2018, 06:43 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
Код
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A2;ПОИСК(",";A2)+2;ДЛСТР(A2));",";ПОВТОР(" ";67));59))
Код
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A2;ПОИСК(",";A2)+2;ДЛСТР(A2));",";ПОВТОР(" ";67));59))
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Код
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПСТР(A2;ПОИСК(",";A2)+2;ДЛСТР(A2));",";ПОВТОР(" ";67));59))
Автор - Nic70y Дата добавления - 05.06.2018 в 06:43
Светлый
Дата: Вторник, 05.06.2018, 07:42 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1823
Репутация:
507
±
Замечаний:
0% ±
Excel 2013, 2016
Добрый день!Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2;",";ПОВТОР(" ";99));99;99))
Добрый день!Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2;",";ПОВТОР(" ";99));99;99))
Светлый
Программировать проще, чем писать стихи.
Ответить
Сообщение Добрый день!Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2;",";ПОВТОР(" ";99));99;99))
Автор - Светлый Дата добавления - 05.06.2018 в 07:42
sv2014
Дата: Вторник, 05.06.2018, 12:37 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Chelovekov , вариант функций в столбцах E F [vba]Код
Function bbb$(t$) bbb = Split(t, ",")(1) End Function
[/vba] [vba]Код
Function aaa$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+": .Global = True: aaa = .Execute(t)(1) End With End Function
[/vba]
Chelovekov , вариант функций в столбцах E F [vba]Код
Function bbb$(t$) bbb = Split(t, ",")(1) End Function
[/vba] [vba]Код
Function aaa$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+": .Global = True: aaa = .Execute(t)(1) End With End Function
[/vba]sv2014
Ответить
Сообщение Chelovekov , вариант функций в столбцах E F [vba]Код
Function bbb$(t$) bbb = Split(t, ",")(1) End Function
[/vba] [vba]Код
Function aaa$(t$) With CreateObject("VBScript.RegExp"): .Pattern = "[^,]+": .Global = True: aaa = .Execute(t)(1) End With End Function
[/vba]Автор - sv2014 Дата добавления - 05.06.2018 в 12:37
китин
Дата: Вторник, 05.06.2018, 12:53 |
Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
а поизвращаться?Код
=ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1)
а поизвращаться?Код
=ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1)
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение а поизвращаться?Код
=ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1)
Автор - китин Дата добавления - 05.06.2018 в 12:53
Chelovekov
Дата: Вторник, 05.06.2018, 12:58 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 307
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Спасибо всем, а можно доработать формулы или макрос, слово Hit убрать что бы было только числовое значение ???
Спасибо всем, а можно доработать формулы или макрос, слово Hit убрать что бы было только числовое значение ??? Chelovekov
Сообщение отредактировал Chelovekov - Вторник, 05.06.2018, 12:58
Ответить
Сообщение Спасибо всем, а можно доработать формулы или макрос, слово Hit убрать что бы было только числовое значение ??? Автор - Chelovekov Дата добавления - 05.06.2018 в 12:58
Chelovekov
Дата: Вторник, 05.06.2018, 13:04 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 307
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
И еще не сочтите за наглость, нужно сделать все что было выше, только убрать слово Hit, только таблица с данными будет с пустыми строками, пример прилагаю. Спасибо.
И еще не сочтите за наглость, нужно сделать все что было выше, только убрать слово Hit, только таблица с данными будет с пустыми строками, пример прилагаю. Спасибо. Chelovekov
К сообщению приложен файл:
_3.xls
(33.0 Kb)
Сообщение отредактировал Chelovekov - Вторник, 05.06.2018, 13:06
Ответить
Сообщение И еще не сочтите за наглость, нужно сделать все что было выше, только убрать слово Hit, только таблица с данными будет с пустыми строками, пример прилагаю. Спасибо. Автор - Chelovekov Дата добавления - 05.06.2018 в 13:04
китин
Дата: Вторник, 05.06.2018, 13:06 |
Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
в моем извращенииКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1);"HITS";""))
[p.s.] и какие исчё хотелки будут?
в моем извращенииКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1);"HITS";""))
[p.s.] и какие исчё хотелки будут? китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Вторник, 05.06.2018, 13:07
Ответить
Сообщение в моем извращенииКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2));1;ПОИСК(",";ПСТР(СЖПРОБЕЛЫ(A2);ПОИСК(",";СЖПРОБЕЛЫ(A2))+1;ДЛСТР(A2)))-1);"HITS";""))
[p.s.] и какие исчё хотелки будут? Автор - китин Дата добавления - 05.06.2018 в 13:06
Chelovekov
Дата: Вторник, 05.06.2018, 13:07 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 307
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Спасибо, за помощь, но я не много изменил условие, пример выше
Спасибо, за помощь, но я не много изменил условие, пример выше Chelovekov
Ответить
Сообщение Спасибо, за помощь, но я не много изменил условие, пример выше Автор - Chelovekov Дата добавления - 05.06.2018 в 13:07
китин
Дата: Вторник, 05.06.2018, 13:08 |
Сообщение № 10
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
и какие исчё хотелки будут?
и какие исчё хотелки будут?
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ответить
Сообщение и какие исчё хотелки будут?
Автор - китин Дата добавления - 05.06.2018 в 13:08
Chelovekov
Дата: Вторник, 05.06.2018, 13:11 |
Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 307
Репутация:
0
±
Замечаний:
80% ±
Excel 2016
Извините пожалуйста, так получилось
Ответить
Сообщение Извините пожалуйста, так получилось Автор - Chelovekov Дата добавления - 05.06.2018 в 13:11
Nic70y
Дата: Вторник, 05.06.2018, 13:16 |
Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
формула массиваКод
=--ПСТР(ПОДСТАВИТЬ(ИНДЕКС($A2:$A31;НАИМЕНЬШИЙ(ЕСЛИ($A2:$A31<>"";СТРОКА(A2:A31)-1);СТОЛБЕЦ(A1)));" ";ПОВТОР(" ";41));82;41)
формула массиваКод
=--ПСТР(ПОДСТАВИТЬ(ИНДЕКС($A2:$A31;НАИМЕНЬШИЙ(ЕСЛИ($A2:$A31<>"";СТРОКА(A2:A31)-1);СТОЛБЕЦ(A1)));" ";ПОВТОР(" ";41));82;41)
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение формула массиваКод
=--ПСТР(ПОДСТАВИТЬ(ИНДЕКС($A2:$A31;НАИМЕНЬШИЙ(ЕСЛИ($A2:$A31<>"";СТРОКА(A2:A31)-1);СТОЛБЕЦ(A1)));" ";ПОВТОР(" ";41));82;41)
Автор - Nic70y Дата добавления - 05.06.2018 в 13:16
китин
Дата: Вторник, 05.06.2018, 13:17 |
Сообщение № 13
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация:
1073
±
Замечаний:
0% ±
Excel 2007;2010;2016
ну вот вам вот такого монстраКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1)));1;ПОИСК(",";ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))))-1);"HITS";""))
[offtop]а у меня длиннее!!!!!!
ну вот вам вот такого монстраКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1)));1;ПОИСК(",";ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))))-1);"HITS";""))
[offtop]а у меня длиннее!!!!!! китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Вторник, 05.06.2018, 13:17
Ответить
Сообщение ну вот вам вот такого монстраКод
=--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПСТР(ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1)));1;ПОИСК(",";ПСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1);ПОИСК(",";ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))+1;ДЛСТР(ИНДЕКС($A$2:$A$30;СТОЛБЕЦ(A1)*2-1))))-1);"HITS";""))
[offtop]а у меня длиннее!!!!!! Автор - китин Дата добавления - 05.06.2018 в 13:17
sv2014
Дата: Вторник, 05.06.2018, 15:50 |
Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Chelovekov , вариант макроса для сообщения 7,кнопка test [vba]Код
Sub test() Dim i&, j&, z: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True For i = 1 To UBound(z) If Not IsEmpty(z(i, 1)) Then j = j + 1: Range("E3").Offset(, j) = .Execute(z(i, 1))(1) Range("E3").Offset(, j).HorizontalAlignment = xlCenter End If Next End With End Sub
[/vba]
Chelovekov , вариант макроса для сообщения 7,кнопка test [vba]Код
Sub test() Dim i&, j&, z: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True For i = 1 To UBound(z) If Not IsEmpty(z(i, 1)) Then j = j + 1: Range("E3").Offset(, j) = .Execute(z(i, 1))(1) Range("E3").Offset(, j).HorizontalAlignment = xlCenter End If Next End With End Sub
[/vba]sv2014
Ответить
Сообщение Chelovekov , вариант макроса для сообщения 7,кнопка test [vba]Код
Sub test() Dim i&, j&, z: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True For i = 1 To UBound(z) If Not IsEmpty(z(i, 1)) Then j = j + 1: Range("E3").Offset(, j) = .Execute(z(i, 1))(1) Range("E3").Offset(, j).HorizontalAlignment = xlCenter End If Next End With End Sub
[/vba]Автор - sv2014 Дата добавления - 05.06.2018 в 15:50