оставить только цифры
qpp
Дата: Среда, 04.07.2012, 12:06 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
Добрый день. Возник вопрос, как можно удалить все текстовые значение (рус и анг) из ячейки, и оставить только цифры. в ASAP Util есть такая функция, но работает только с английским языком. Подскажите пожалуйста.
Добрый день. Возник вопрос, как можно удалить все текстовые значение (рус и анг) из ячейки, и оставить только цифры. в ASAP Util есть такая функция, но работает только с английским языком. Подскажите пожалуйста. qpp
bigqpp скайп
Ответить
Сообщение Добрый день. Возник вопрос, как можно удалить все текстовые значение (рус и анг) из ячейки, и оставить только цифры. в ASAP Util есть такая функция, но работает только с английским языком. Подскажите пожалуйста. Автор - qpp Дата добавления - 04.07.2012 в 12:06
Формуляр
Дата: Среда, 04.07.2012, 12:17 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация:
255
±
Замечаний:
0% ±
Excel 2003, 2013
Excel 2003 EN, 2013 EN
Сообщение отредактировал Формуляр - Среда, 04.07.2012, 12:18
Ответить
_Boroda_
Дата: Среда, 04.07.2012, 12:30 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16728
Репутация:
6524
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Для А1 Формула массива (вводить одновременным нажатием Контрл, Шифт, Ентер) [vba]Code
=СУММ(ПСТР(0&A1;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))*СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1))))+1;1)*10^(СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)))-1))
[/vba] Можно блок ДВССЫЛ("A1:A"&ДЛСТР(A1)) заменить на, допустим, D$1:D$1000 или вообще $1:$1000
Для А1 Формула массива (вводить одновременным нажатием Контрл, Шифт, Ентер) [vba]Code
=СУММ(ПСТР(0&A1;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))*СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1))))+1;1)*10^(СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)))-1))
[/vba] Можно блок ДВССЫЛ("A1:A"&ДЛСТР(A1)) заменить на, допустим, D$1:D$1000 или вообще $1:$1000 _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Для А1 Формула массива (вводить одновременным нажатием Контрл, Шифт, Ентер) [vba]Code
=СУММ(ПСТР(0&A1;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(A1;СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));1))*СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)));СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1))))+1;1)*10^(СТРОКА(ДВССЫЛ("A1:A"&ДЛСТР(A1)))-1))
[/vba] Можно блок ДВССЫЛ("A1:A"&ДЛСТР(A1)) заменить на, допустим, D$1:D$1000 или вообще $1:$1000 Автор - _Boroda_ Дата добавления - 04.07.2012 в 12:30
Гость
Дата: Среда, 04.07.2012, 12:43 |
Сообщение № 4
Интересное решение, попробую разобраться на досуге. Но меня все таки интересует момент, как можно убрать из ячейки все буквы. тк для этого МАТЕРИАЛ ПЕРЕВЯЗОЧНЫЙ АДГЕЗИВНЫЙ, ИМЕЮЩИЙ ЛИПКУЮ ПОВЕРХНОСТЬ, ДЛЯ ИСПОЛЬЗОВАНИЯ В МЕДИЦИНЕ, В КАРТ. КОРОБКАХ, КОД ОКП 939370:ГИПОАЛЛЕРГЕННЫЙ ФИКСИРУЮЩИЙ ПЛАСТЫРЬ НА ПЛАСТ. КАТУШКАХ: "OMNIPOR" РАЗМ.5СМХ9.2М, АРТ. - 9005829 - 80 УПАК. (ПО 2 ШТ) В 2 КАРТ.КОР. САМОКЛЕЯЩАЯСЯ ПОВЯЗКА ДЛЯ УХОДА ПОСЛЕОПЕРАЦИОННЫМИ РАНАМИ СО СПЕЦИАЛЬНОЙ НЕ ПРИКЛЕИВАЮЩЕЙСЯ К РАНЕ : "COSMOPOR ADVANCE|", РАЗМ.15X8CM, АРТ. - 9010141 - 12 УПАК. (ПО 25 ШТ), В 1 КАРТ.КОР. Quote
формула не работает.
Интересное решение, попробую разобраться на досуге. Но меня все таки интересует момент, как можно убрать из ячейки все буквы. тк для этого МАТЕРИАЛ ПЕРЕВЯЗОЧНЫЙ АДГЕЗИВНЫЙ, ИМЕЮЩИЙ ЛИПКУЮ ПОВЕРХНОСТЬ, ДЛЯ ИСПОЛЬЗОВАНИЯ В МЕДИЦИНЕ, В КАРТ. КОРОБКАХ, КОД ОКП 939370:ГИПОАЛЛЕРГЕННЫЙ ФИКСИРУЮЩИЙ ПЛАСТЫРЬ НА ПЛАСТ. КАТУШКАХ: "OMNIPOR" РАЗМ.5СМХ9.2М, АРТ. - 9005829 - 80 УПАК. (ПО 2 ШТ) В 2 КАРТ.КОР. САМОКЛЕЯЩАЯСЯ ПОВЯЗКА ДЛЯ УХОДА ПОСЛЕОПЕРАЦИОННЫМИ РАНАМИ СО СПЕЦИАЛЬНОЙ НЕ ПРИКЛЕИВАЮЩЕЙСЯ К РАНЕ : "COSMOPOR ADVANCE|", РАЗМ.15X8CM, АРТ. - 9010141 - 12 УПАК. (ПО 25 ШТ), В 1 КАРТ.КОР. Quote
формула не работает.
Гость
Ответить
Сообщение Интересное решение, попробую разобраться на досуге. Но меня все таки интересует момент, как можно убрать из ячейки все буквы. тк для этого МАТЕРИАЛ ПЕРЕВЯЗОЧНЫЙ АДГЕЗИВНЫЙ, ИМЕЮЩИЙ ЛИПКУЮ ПОВЕРХНОСТЬ, ДЛЯ ИСПОЛЬЗОВАНИЯ В МЕДИЦИНЕ, В КАРТ. КОРОБКАХ, КОД ОКП 939370:ГИПОАЛЛЕРГЕННЫЙ ФИКСИРУЮЩИЙ ПЛАСТЫРЬ НА ПЛАСТ. КАТУШКАХ: "OMNIPOR" РАЗМ.5СМХ9.2М, АРТ. - 9005829 - 80 УПАК. (ПО 2 ШТ) В 2 КАРТ.КОР. САМОКЛЕЯЩАЯСЯ ПОВЯЗКА ДЛЯ УХОДА ПОСЛЕОПЕРАЦИОННЫМИ РАНАМИ СО СПЕЦИАЛЬНОЙ НЕ ПРИКЛЕИВАЮЩЕЙСЯ К РАНЕ : "COSMOPOR ADVANCE|", РАЗМ.15X8CM, АРТ. - 9010141 - 12 УПАК. (ПО 25 ШТ), В 1 КАРТ.КОР. Quote
формула не работает.
Автор - Гость Дата добавления - 04.07.2012 в 12:43
qpp
Дата: Среда, 04.07.2012, 12:46 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
прошу прощение, оставил запись как гость. не до конца еще освоил форум.
прошу прощение, оставил запись как гость. не до конца еще освоил форум. qpp
bigqpp скайп
Ответить
Сообщение прошу прощение, оставил запись как гость. не до конца еще освоил форум. Автор - qpp Дата добавления - 04.07.2012 в 12:46
RAN
Дата: Среда, 04.07.2012, 12:55 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
UDF Оставляет только цифры [vba]Code
Function ИЗВЛЕЧ_ЦИФР(ЯЧЕЙКА As Range) As String '--------------------------------------------------------------------------------------- ' Purpose : Извлекает цифры из ячейки '--------------------------------------------------------------------------------------- Dim LenStr As Long For LenStr = 1 To Len(ЯЧЕЙКА) Select Case Asc(Mid(ЯЧЕЙКА, LenStr, 1)) Case 48 To 57 ИЗВЛЕЧ_ЦИФР = ИЗВЛЕЧ_ЦИФР & Mid(ЯЧЕЙКА, LenStr, 1) End Select Next End Function
[/vba] 93937059290058298022158901014112251 - солить будем?
UDF Оставляет только цифры [vba]Code
Function ИЗВЛЕЧ_ЦИФР(ЯЧЕЙКА As Range) As String '--------------------------------------------------------------------------------------- ' Purpose : Извлекает цифры из ячейки '--------------------------------------------------------------------------------------- Dim LenStr As Long For LenStr = 1 To Len(ЯЧЕЙКА) Select Case Asc(Mid(ЯЧЕЙКА, LenStr, 1)) Case 48 To 57 ИЗВЛЕЧ_ЦИФР = ИЗВЛЕЧ_ЦИФР & Mid(ЯЧЕЙКА, LenStr, 1) End Select Next End Function
[/vba] 93937059290058298022158901014112251 - солить будем? RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Среда, 04.07.2012, 12:57
Ответить
Сообщение UDF Оставляет только цифры [vba]Code
Function ИЗВЛЕЧ_ЦИФР(ЯЧЕЙКА As Range) As String '--------------------------------------------------------------------------------------- ' Purpose : Извлекает цифры из ячейки '--------------------------------------------------------------------------------------- Dim LenStr As Long For LenStr = 1 To Len(ЯЧЕЙКА) Select Case Asc(Mid(ЯЧЕЙКА, LenStr, 1)) Case 48 To 57 ИЗВЛЕЧ_ЦИФР = ИЗВЛЕЧ_ЦИФР & Mid(ЯЧЕЙКА, LenStr, 1) End Select Next End Function
[/vba] 93937059290058298022158901014112251 - солить будем? Автор - RAN Дата добавления - 04.07.2012 в 12:55
qpp
Дата: Среда, 04.07.2012, 13:00 |
Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
прошу прощения, принял к сведению и буду выкладывать файл впредь для примера. в итоге я бы хотел убрать все буквы из ячейки, и получить (вместе со знаками табуляции) набор цифр, после из него вывести закономерность, упаковки - кол-во, они попадаются в нескольких комбинациях, я вначале привел для примера ASAP Util которая это делает, но только с англ. знаками.
прошу прощения, принял к сведению и буду выкладывать файл впредь для примера. в итоге я бы хотел убрать все буквы из ячейки, и получить (вместе со знаками табуляции) набор цифр, после из него вывести закономерность, упаковки - кол-во, они попадаются в нескольких комбинациях, я вначале привел для примера ASAP Util которая это делает, но только с англ. знаками. qpp
bigqpp скайп
Ответить
Сообщение прошу прощения, принял к сведению и буду выкладывать файл впредь для примера. в итоге я бы хотел убрать все буквы из ячейки, и получить (вместе со знаками табуляции) набор цифр, после из него вывести закономерность, упаковки - кол-во, они попадаются в нескольких комбинациях, я вначале привел для примера ASAP Util которая это делает, но только с англ. знаками. Автор - qpp Дата добавления - 04.07.2012 в 13:00
MCH
Дата: Среда, 04.07.2012, 13:01 |
Сообщение № 8
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация:
752
±
Замечаний:
±
Quote (Гость )
как можно убрать из ячейки все буквы
Точки, запятые, тире, скобки, пробелы не удаляем? Что в итоге должно получится? все цифры подряд, или разделенные через пробел? PS. Формулу которую предложил _Boroda_ может вернуть только 15 цифр как извлечь все числа см. http://www.excelworld.ru/forum/2-1287-1
Quote (Гость )
как можно убрать из ячейки все буквы
Точки, запятые, тире, скобки, пробелы не удаляем? Что в итоге должно получится? все цифры подряд, или разделенные через пробел? PS. Формулу которую предложил _Boroda_ может вернуть только 15 цифр как извлечь все числа см. http://www.excelworld.ru/forum/2-1287-1 MCH
Ответить
Сообщение Quote (Гость )
как можно убрать из ячейки все буквы
Точки, запятые, тире, скобки, пробелы не удаляем? Что в итоге должно получится? все цифры подряд, или разделенные через пробел? PS. Формулу которую предложил _Boroda_ может вернуть только 15 цифр как извлечь все числа см. http://www.excelworld.ru/forum/2-1287-1 Автор - MCH Дата добавления - 04.07.2012 в 13:01
MCH
Дата: Среда, 04.07.2012, 13:08 |
Сообщение № 9
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация:
752
±
Замечаний:
±
UDF: [vba]Code
Function ExtractNum$(txt$) Dim i&, s$, m$ For i = 1 To Len(txt) m$ = Mid$(txt, i, 1) If Not m Like "[0-9]" Then m = " " s = s & m Next i ExtractNum = Application.Trim(s) End Function
[/vba] вернет строку: 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 Вариант2: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i& For i = 1 To Len(txt) If Not Mid$(txt, i, 1) Like "[0-9]" Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba]
UDF: [vba]Code
Function ExtractNum$(txt$) Dim i&, s$, m$ For i = 1 To Len(txt) m$ = Mid$(txt, i, 1) If Not m Like "[0-9]" Then m = " " s = s & m Next i ExtractNum = Application.Trim(s) End Function
[/vba] вернет строку: 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 Вариант2: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i& For i = 1 To Len(txt) If Not Mid$(txt, i, 1) Like "[0-9]" Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba] MCH
Сообщение отредактировал MCH - Среда, 04.07.2012, 13:31
Ответить
Сообщение UDF: [vba]Code
Function ExtractNum$(txt$) Dim i&, s$, m$ For i = 1 To Len(txt) m$ = Mid$(txt, i, 1) If Not m Like "[0-9]" Then m = " " s = s & m Next i ExtractNum = Application.Trim(s) End Function
[/vba] вернет строку: 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 Вариант2: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i& For i = 1 To Len(txt) If Not Mid$(txt, i, 1) Like "[0-9]" Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba] Автор - MCH Дата добавления - 04.07.2012 в 13:08
qpp
Дата: Среда, 04.07.2012, 13:22 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
с пробелами выглядит вполне осмысленно, удачно только что это UDF и как им пользоваться (нашел описание, сейчас буду разбираться)
с пробелами выглядит вполне осмысленно, удачно только что это UDF и как им пользоваться (нашел описание, сейчас буду разбираться) qpp
bigqpp скайп
Ответить
Сообщение с пробелами выглядит вполне осмысленно, удачно только что это UDF и как им пользоваться (нашел описание, сейчас буду разбираться) Автор - qpp Дата добавления - 04.07.2012 в 13:22
qpp
Дата: Пятница, 06.07.2012, 13:19 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
спасибо, мне очень помогло смог структурировать БД по сложности обрабатываемых поле, но скинули аналогичную базу изверги, и нет сил можно добавить условия таким образом, что бы эта функция вытягивала не только цифры через пробел, но цифры окруженные значением ( пример значений: УП ШТ СМ . х ) т.е. на выходе получать не просто 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 а 939370 5смХ9.2м 9005829 80уп 2шт ... и тд ? и желательно чтобы текст на выходе примыкал к цифрам
спасибо, мне очень помогло смог структурировать БД по сложности обрабатываемых поле, но скинули аналогичную базу изверги, и нет сил можно добавить условия таким образом, что бы эта функция вытягивала не только цифры через пробел, но цифры окруженные значением ( пример значений: УП ШТ СМ . х ) т.е. на выходе получать не просто 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 а 939370 5смХ9.2м 9005829 80уп 2шт ... и тд ? и желательно чтобы текст на выходе примыкал к цифрам qpp
bigqpp скайп
Сообщение отредактировал Serge_007 - Понедельник, 20.11.2023, 15:18
Ответить
Сообщение спасибо, мне очень помогло смог структурировать БД по сложности обрабатываемых поле, но скинули аналогичную базу изверги, и нет сил можно добавить условия таким образом, что бы эта функция вытягивала не только цифры через пробел, но цифры окруженные значением ( пример значений: УП ШТ СМ . х ) т.е. на выходе получать не просто 939370 5 9 2 9005829 80 2 2 15 8 9010141 12 25 1 а 939370 5смХ9.2м 9005829 80уп 2шт ... и тд ? и желательно чтобы текст на выходе примыкал к цифрам Автор - qpp Дата добавления - 06.07.2012 в 13:19
MCH
Дата: Пятница, 06.07.2012, 14:26 |
Сообщение № 12
Группа: Админы
Ранг: Старожил
Сообщений: 2004
Репутация:
752
±
Замечаний:
±
не совсем как нужно, но вроде работает: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i&, j& Dim a, b a = Array("[0-9] шт", "[0-9]шт", "[0-9] уп", "[0-9]уп", "[0-9]смх", "[0-9]см", _ "[0-9] см", "[0-9] х [0-9]", "[0-9] x [0-9]", "[0-9]х[0-9]", _ "[0-9]x[0-9]", "[0-9].[0-9]", "[0-9]") b = Array(4, 3, 4, 3, 4, 3, 4, 5, 5, 3, 3, 3, 1) For i = 1 To Len(txt) For j = LBound(b) To UBound(b) If LCase(Mid$(txt, i, b(j))) Like a(j) Then i = i + b(j) - 1: Exit For Next j If j > UBound(b) Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba] Вероятно здесь можно (нужно) использовать регулярные выражения, но это не ко мне
не совсем как нужно, но вроде работает: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i&, j& Dim a, b a = Array("[0-9] шт", "[0-9]шт", "[0-9] уп", "[0-9]уп", "[0-9]смх", "[0-9]см", _ "[0-9] см", "[0-9] х [0-9]", "[0-9] x [0-9]", "[0-9]х[0-9]", _ "[0-9]x[0-9]", "[0-9].[0-9]", "[0-9]") b = Array(4, 3, 4, 3, 4, 3, 4, 5, 5, 3, 3, 3, 1) For i = 1 To Len(txt) For j = LBound(b) To UBound(b) If LCase(Mid$(txt, i, b(j))) Like a(j) Then i = i + b(j) - 1: Exit For Next j If j > UBound(b) Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba] Вероятно здесь можно (нужно) использовать регулярные выражения, но это не ко мне MCH
Ответить
Сообщение не совсем как нужно, но вроде работает: [vba]Code
Function ExtractNum$(ByVal txt$) Dim i&, j& Dim a, b a = Array("[0-9] шт", "[0-9]шт", "[0-9] уп", "[0-9]уп", "[0-9]смх", "[0-9]см", _ "[0-9] см", "[0-9] х [0-9]", "[0-9] x [0-9]", "[0-9]х[0-9]", _ "[0-9]x[0-9]", "[0-9].[0-9]", "[0-9]") b = Array(4, 3, 4, 3, 4, 3, 4, 5, 5, 3, 3, 3, 1) For i = 1 To Len(txt) For j = LBound(b) To UBound(b) If LCase(Mid$(txt, i, b(j))) Like a(j) Then i = i + b(j) - 1: Exit For Next j If j > UBound(b) Then Mid(txt, i, 1) = " " Next i ExtractNum = Application.Trim(txt) End Function
[/vba] Вероятно здесь можно (нужно) использовать регулярные выражения, но это не ко мне Автор - MCH Дата добавления - 06.07.2012 в 14:26
qpp
Дата: Пятница, 06.07.2012, 15:58 |
Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
[0-9]ММ*[0-9]ММ а как мне сюда еще вот такое условие добавить я вставляю, но не срабатывает
[0-9]ММ*[0-9]ММ а как мне сюда еще вот такое условие добавить я вставляю, но не срабатывает qpp
bigqpp скайп
Ответить
Сообщение [0-9]ММ*[0-9]ММ а как мне сюда еще вот такое условие добавить я вставляю, но не срабатывает Автор - qpp Дата добавления - 06.07.2012 в 15:58
qpp
Дата: Пятница, 06.07.2012, 15:58 |
Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
72ММ*19ММ оригинал но цифры могут меняться
72ММ*19ММ оригинал но цифры могут меняться qpp
bigqpp скайп
Ответить
Сообщение 72ММ*19ММ оригинал но цифры могут меняться Автор - qpp Дата добавления - 06.07.2012 в 15:58
Michael_S
Дата: Пятница, 06.07.2012, 18:05 |
Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
qpp, Приложите пример с возможными вариантами и что из них надо получить. По сто раз переделывать никому не охота.
qpp, Приложите пример с возможными вариантами и что из них надо получить. По сто раз переделывать никому не охота. Michael_S
Ответить
Сообщение qpp, Приложите пример с возможными вариантами и что из них надо получить. По сто раз переделывать никому не охота. Автор - Michael_S Дата добавления - 06.07.2012 в 18:05
qpp
Дата: Понедельник, 09.07.2012, 10:39 |
Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация:
11
±
Замечаний:
0% ±
72ММ*19ММ 1.25СМХ5М 1056УП 25 ШТ 15X8CM 5РУЛ 25Х127ММ 20ММ*5,0М 1,25СМ*5,0М 10СМ*15СМ все пробелы из ячеек убрал, на выходе хотелось бы получить то что описано выше, если возможно сохранить "." "," между знаками тоже хорошо. цифры могут меняться на выходе получать --- а 939370 5смХ9.2м 9005829 80уп 2шт
72ММ*19ММ 1.25СМХ5М 1056УП 25 ШТ 15X8CM 5РУЛ 25Х127ММ 20ММ*5,0М 1,25СМ*5,0М 10СМ*15СМ все пробелы из ячеек убрал, на выходе хотелось бы получить то что описано выше, если возможно сохранить "." "," между знаками тоже хорошо. цифры могут меняться на выходе получать --- а 939370 5смХ9.2м 9005829 80уп 2шт qpp
bigqpp скайп
Ответить
Сообщение 72ММ*19ММ 1.25СМХ5М 1056УП 25 ШТ 15X8CM 5РУЛ 25Х127ММ 20ММ*5,0М 1,25СМ*5,0М 10СМ*15СМ все пробелы из ячеек убрал, на выходе хотелось бы получить то что описано выше, если возможно сохранить "." "," между знаками тоже хорошо. цифры могут меняться на выходе получать --- а 939370 5смХ9.2м 9005829 80уп 2шт Автор - qpp Дата добавления - 09.07.2012 в 10:39
Michael_S
Дата: Понедельник, 09.07.2012, 14:17 |
Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
Quote (qpp )
все пробелы из ячеек убрал,
Дружище, на хрена Вы выложили сто кБ бессмысленного текста, с которым даже человеку невозможно работать, не то, что машине.? Надо с десяток ячеек с первоначальным текстом, желательно с разными вариантами что бывает и в соседнем столбце - что нужно получить.
Quote (qpp )
все пробелы из ячеек убрал,
Дружище, на хрена Вы выложили сто кБ бессмысленного текста, с которым даже человеку невозможно работать, не то, что машине.? Надо с десяток ячеек с первоначальным текстом, желательно с разными вариантами что бывает и в соседнем столбце - что нужно получить.Michael_S
Ответить
Сообщение Quote (qpp )
все пробелы из ячеек убрал,
Дружище, на хрена Вы выложили сто кБ бессмысленного текста, с которым даже человеку невозможно работать, не то, что машине.? Надо с десяток ячеек с первоначальным текстом, желательно с разными вариантами что бывает и в соседнем столбце - что нужно получить.Автор - Michael_S Дата добавления - 09.07.2012 в 14:17
ВикторВ
Дата: Четверг, 04.10.2012, 14:02 |
Сообщение № 18
как убрать пробел между цифрами номера телефонов пример 050 333 33 33 на выходе должно быть 0503333333
как убрать пробел между цифрами номера телефонов пример 050 333 33 33 на выходе должно быть 0503333333 ВикторВ
Ответить
Сообщение как убрать пробел между цифрами номера телефонов пример 050 333 33 33 на выходе должно быть 0503333333 Автор - ВикторВ Дата добавления - 04.10.2012 в 14:02
Tviga
Дата: Четверг, 04.10.2012, 14:06 |
Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация:
20
±
Замечаний:
0% ±
Ctrl+H найти -пробел - заменить -ничем
Ctrl+H найти -пробел - заменить -ничем Tviga
Ответить
Сообщение Ctrl+H найти -пробел - заменить -ничем Автор - Tviga Дата добавления - 04.10.2012 в 14:06
ВикторВ
Дата: Пятница, 05.10.2012, 17:13 |
Сообщение № 20
Вот так я и сделал,Ctrl+H найти -пробел - заменить -ничем .Один раз получилось, а потом нет.
Вот так я и сделал,Ctrl+H найти -пробел - заменить -ничем .Один раз получилось, а потом нет. ВикторВ
Ответить
Сообщение Вот так я и сделал,Ctrl+H найти -пробел - заменить -ничем .Один раз получилось, а потом нет. Автор - ВикторВ Дата добавления - 05.10.2012 в 17:13