Привести к общему виду… лишние пробелы
HoBU4OK
Дата: Понедельник, 12.09.2022, 15:03 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Доброго времени суток Столкнулся с проблемой выгруженного файла в .txt 1 485,00 0,00 1 487,00 0,00 0,00 0,00 1 487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 4 270,00 0,00 0,00 0,00 4 270,00 Необходимо получить «текст по столбцам» с числовыми значениями 1485,00 0,00 1487,00 0,00 0,00 0,00 1487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 Проблема в лишних пробелах… не знаю как от них избавиться Принимаю помощь Excel формулами и Power Query))) Файл приложить нет технической возможности, цифры строки в одной ячейке Всем не безучастным
Доброго времени суток Столкнулся с проблемой выгруженного файла в .txt 1 485,00 0,00 1 487,00 0,00 0,00 0,00 1 487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 4 270,00 0,00 0,00 0,00 4 270,00 Необходимо получить «текст по столбцам» с числовыми значениями 1485,00 0,00 1487,00 0,00 0,00 0,00 1487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 Проблема в лишних пробелах… не знаю как от них избавиться Принимаю помощь Excel формулами и Power Query))) Файл приложить нет технической возможности, цифры строки в одной ячейке Всем не безучастным HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Доброго времени суток Столкнулся с проблемой выгруженного файла в .txt 1 485,00 0,00 1 487,00 0,00 0,00 0,00 1 487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 4 270,00 0,00 0,00 0,00 4 270,00 Необходимо получить «текст по столбцам» с числовыми значениями 1485,00 0,00 1487,00 0,00 0,00 0,00 1487,00 0,00 646,00 0,00 0,00 0,00 0,00 646,00 Проблема в лишних пробелах… не знаю как от них избавиться Принимаю помощь Excel формулами и Power Query))) Файл приложить нет технической возможности, цифры строки в одной ячейке Всем не безучастным Автор - HoBU4OK Дата добавления - 12.09.2022 в 15:03
Nic70y
Дата: Понедельник, 12.09.2022, 15:19 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация:
2415
±
Замечаний:
0% ±
Excel 2010
если у вас число всегда заканчивается ,00 можно cthl+h найти ,00пробел заменить на ; затем текст по столбцам с разделителем ;
если у вас число всегда заканчивается ,00 можно cthl+h найти ,00пробел заменить на ; затем текст по столбцам с разделителем ; Nic70y
ЮMoney 41001841029809
Ответить
Сообщение если у вас число всегда заканчивается ,00 можно cthl+h найти ,00пробел заменить на ; затем текст по столбцам с разделителем ; Автор - Nic70y Дата добавления - 12.09.2022 в 15:19
HoBU4OK
Дата: Понедельник, 12.09.2022, 15:28 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Nic70y , гениальное просто!) Но мое упущение, встречается и ,25 и ,50 Строка примера: 10 420,25 0,00 0,00 0,00 10 420,25 0,00 Надо: 10420,25 0,00 0,00 0,00 10420,25 0,00
Nic70y , гениальное просто!) Но мое упущение, встречается и ,25 и ,50 Строка примера: 10 420,25 0,00 0,00 0,00 10 420,25 0,00 Надо: 10420,25 0,00 0,00 0,00 10420,25 0,00HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Nic70y , гениальное просто!) Но мое упущение, встречается и ,25 и ,50 Строка примера: 10 420,25 0,00 0,00 0,00 10 420,25 0,00 Надо: 10420,25 0,00 0,00 0,00 10420,25 0,00Автор - HoBU4OK Дата добавления - 12.09.2022 в 15:28
_Boroda_
Дата: Понедельник, 12.09.2022, 15:42 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6613
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
А у Вас там точно именно пробелы (код 32)? Очень часто это бывает неразрывный пробел (код 160). Проверьте. Типа вот так
=КОДСИМВ(ПСТР(A1 ;3;1))
А у Вас там точно именно пробелы (код 32)? Очень часто это бывает неразрывный пробел (код 160). Проверьте. Типа вот так
=КОДСИМВ(ПСТР(A1 ;3;1))
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение А у Вас там точно именно пробелы (код 32)? Очень часто это бывает неразрывный пробел (код 160). Проверьте. Типа вот так
=КОДСИМВ(ПСТР(A1 ;3;1))
Автор - _Boroda_ Дата добавления - 12.09.2022 в 15:42
HoBU4OK
Дата: Понедельник, 12.09.2022, 16:21 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
_Boroda_, к сожалению все пробелы одинаковы… .txt копипаст с .pdf :crazy:
_Boroda_, к сожалению все пробелы одинаковы… .txt копипаст с .pdf :crazy: HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Сообщение отредактировал HoBU4OK - Понедельник, 12.09.2022, 16:29
Ответить
Сообщение _Boroda_, к сожалению все пробелы одинаковы… .txt копипаст с .pdf :crazy: Автор - HoBU4OK Дата добавления - 12.09.2022 в 16:21
Serge_007
Дата: Понедельник, 12.09.2022, 16:36 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
cthl+h найти ,25 пробел заменить на ^
cthl+h найти ,50 пробел заменить на :
затем текст по столбцам с разделителем ^ :
?
cthl+h найти ,25 пробел заменить на ^
cthl+h найти ,50 пробел заменить на :
затем текст по столбцам с разделителем ^ :
?Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение cthl+h найти ,25 пробел заменить на ^
cthl+h найти ,50 пробел заменить на :
затем текст по столбцам с разделителем ^ :
?Автор - Serge_007 Дата добавления - 12.09.2022 в 16:36
HoBU4OK
Дата: Понедельник, 12.09.2022, 16:50 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Serge_007, как промежуточное решение можно и использовать, но вообще это копейки и хотелось бы их сохранить…
Serge_007, как промежуточное решение можно и использовать, но вообще это копейки и хотелось бы их сохранить… HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Serge_007, как промежуточное решение можно и использовать, но вообще это копейки и хотелось бы их сохранить… Автор - HoBU4OK Дата добавления - 12.09.2022 в 16:50
_Boroda_
Дата: Понедельник, 12.09.2022, 16:52 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6613
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Сразу формулой тянем по столбцам
=ЕСЛИОШИБКА(--ПСТР($A1 ;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(", "&$A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 ));СТОЛБЕЦ(A1 ))+(СТОЛБЕЦ(A1 )>1);ИНДЕКС(ЧАСТОТА(СТРОКА($1:$99 );ЕСЛИ(ПСТР($A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 )+3));СТОЛБЕЦ(A1 )));"")
Формула массива, вводится одновременным нажатием Контрл Шифт Ентер Не оптимизировано, наверняка можно сократить )))Добавлено Уж +3 точно можно в формуле убрать )))
Сразу формулой тянем по столбцам
=ЕСЛИОШИБКА(--ПСТР($A1 ;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(", "&$A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 ));СТОЛБЕЦ(A1 ))+(СТОЛБЕЦ(A1 )>1);ИНДЕКС(ЧАСТОТА(СТРОКА($1:$99 );ЕСЛИ(ПСТР($A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 )+3));СТОЛБЕЦ(A1 )));"")
Формула массива, вводится одновременным нажатием Контрл Шифт Ентер Не оптимизировано, наверняка можно сократить )))Добавлено Уж +3 точно можно в формуле убрать ))) _Boroda_
К сообщению приложен файл:
7857.xlsm
(12.5 Kb)
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Сразу формулой тянем по столбцам
=ЕСЛИОШИБКА(--ПСТР($A1 ;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(", "&$A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 ));СТОЛБЕЦ(A1 ))+(СТОЛБЕЦ(A1 )>1);ИНДЕКС(ЧАСТОТА(СТРОКА($1:$99 );ЕСЛИ(ПСТР($A1 ;СТРОКА($1:$99 );1)=",";СТРОКА($1:$99 )+3));СТОЛБЕЦ(A1 )));"")
Формула массива, вводится одновременным нажатием Контрл Шифт Ентер Не оптимизировано, наверняка можно сократить )))Добавлено Уж +3 точно можно в формуле убрать ))) Автор - _Boroda_ Дата добавления - 12.09.2022 в 16:52
_Boroda_
Дата: Понедельник, 12.09.2022, 16:55 |
Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6613
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
cthl+h найти ,25 пробел заменить на ;
cthl+h найти ,25пробел заменить на ,25; Затем удалить пробелы (cthl+h) и текст по столбцам Но есть ли только ,25 и ,50 или могут быть еще и ,38 и ,77 и еще что-то?
cthl+h найти ,25 пробел заменить на ;
cthl+h найти ,25пробел заменить на ,25; Затем удалить пробелы (cthl+h) и текст по столбцам Но есть ли только ,25 и ,50 или могут быть еще и ,38 и ,77 и еще что-то?_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение cthl+h найти ,25 пробел заменить на ;
cthl+h найти ,25пробел заменить на ,25; Затем удалить пробелы (cthl+h) и текст по столбцам Но есть ли только ,25 и ,50 или могут быть еще и ,38 и ,77 и еще что-то?Автор - _Boroda_ Дата добавления - 12.09.2022 в 16:55
HoBU4OK
Дата: Понедельник, 12.09.2022, 17:09 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
_Boroda_, на данный момент нет Но не исключаю что будут Проверяю решение из предыдущего сообщения
_Boroda_, на данный момент нет Но не исключаю что будут Проверяю решение из предыдущего сообщения HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение _Boroda_, на данный момент нет Но не исключаю что будут Проверяю решение из предыдущего сообщения Автор - HoBU4OK Дата добавления - 12.09.2022 в 17:09
прохожий2019
Дата: Понедельник, 12.09.2022, 21:30 |
Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 1396
Репутация:
364
±
Замечаний:
0% ±
365 Beta Channel
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>List.Accumulate(Text.Split(x{0}," " ),
[l={},t=""] ,
(s,c)=> if Text.Contains(c,"," )
then [l=s[l] &{s[t] &c},t="" ]
else [l=s[l] ,t=s[t] &c])[l] ,
to = Table.FromList(Table.ToRows(from),f)
in
to
или так
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>[a = {0}&List.Transform(List.RemoveLastN(List.PositionOf(Text.ToList(x{0}),"," ,Occurrence.All),1 ),(x)=>x+3 ),
b = Splitter.SplitTextByPositions(a)(x{0}),
c = List.Transform(b,(x)=>Number.From(Text.Remove(x," " )))][c] ,
to = Table.FromList(Table.ToRows(from),f)
in
to
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>List.Accumulate(Text.Split(x{0}," " ),
[l={},t=""] ,
(s,c)=> if Text.Contains(c,"," )
then [l=s[l] &{s[t] &c},t="" ]
else [l=s[l] ,t=s[t] &c])[l] ,
to = Table.FromList(Table.ToRows(from),f)
in
to
или так
let
from = Excel.CurrentWorkbook(){[Name="Таблица1"] }[Content] ,
f=(x)=>[a = {0}&List.Transform(List.RemoveLastN(List.PositionOf(Text.ToList(x{0}),"," ,Occurrence.All),1 ),(x)=>x+3 ),
b = Splitter.SplitTextByPositions(a)(x{0}),
c = List.Transform(b,(x)=>Number.From(Text.Remove(x," " )))][c] ,
to = Table.FromList(Table.ToRows(from),f)
in
to
прохожий2019
К сообщению приложен файл:
8756.xlsx
(17.6 Kb)
Сообщение отредактировал прохожий2019 - Понедельник, 12.09.2022, 22:23
Ответить
Сообщение [vba]
let from = Excel.CurrentWorkbook(){[Name ="Таблица1"]}[Content ]; f =(x )=>List.Accumulate(Тext.Split(x {0};" "); [l ={};t =""]; (s ;c )=> if Тext.Contains(c ;",") then [l =s [l ]&{s [t ]&c };t =""] else [l =s [l ];t =s [t ]&c] )[l ]; to = Тable.FromList(Тable.ToRows(from );f )in to
[/vba] или так [vba]
let from = Excel.CurrentWorkbook(){[Name ="Таблица1"]}[Content ]; f =(x )=>[a = {0}&List.Transform(List.RemoveLastЧ(List.PositionOf(Тext.ToList(x {0});",";Occurrence.All );1);(x )=>x +3); b = Splitter.SplitТextByPositions(a )(x {0}); c = List.Transform(b ;(x )=>Чumber.From(Тext.Remove(x ;" ")))][c] ; to = Тable.FromList(Тable.ToRows(from );f )in to
[/vba]Автор - прохожий2019 Дата добавления - 12.09.2022 в 21:30
scriptapplications
Дата: Пятница, 16.09.2022, 20:01 |
Сообщение № 12
Группа: Проверенные
Ранг: Участник
Сообщений: 68
Репутация:
12
±
Замечаний:
0% ±
HoBU4OK, Удалите лишние пробелы с помощью формулы массива (ввод через CTRL+SHIFT+ENTER) :
=СЦЕП(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 );1)<>" ";ПСТР(A1 ;СТРОКА($1:$1000 );1);ЕСЛИОШИБКА(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 )-3;1)=",";ПСТР(A1 ;СТРОКА($1:$1000 );1);"");"")))
HoBU4OK, Удалите лишние пробелы с помощью формулы массива (ввод через CTRL+SHIFT+ENTER) :
=СЦЕП(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 );1)<>" ";ПСТР(A1 ;СТРОКА($1:$1000 );1);ЕСЛИОШИБКА(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 )-3;1)=",";ПСТР(A1 ;СТРОКА($1:$1000 );1);"");"")))
scriptapplications
Ответить
Сообщение HoBU4OK, Удалите лишние пробелы с помощью формулы массива (ввод через CTRL+SHIFT+ENTER) :
=СЦЕП(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 );1)<>" ";ПСТР(A1 ;СТРОКА($1:$1000 );1);ЕСЛИОШИБКА(ЕСЛИ(ПСТР(A1 ;СТРОКА($1:$1000 )-3;1)=",";ПСТР(A1 ;СТРОКА($1:$1000 );1);"");"")))
Автор - scriptapplications Дата добавления - 16.09.2022 в 20:01