Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/PQ удалить лишние пробелы внутри текста - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » PQ удалить лишние пробелы внутри текста (Формулы/Formulas)
PQ удалить лишние пробелы внутри текста
Anis625 Дата: Среда, 24.04.2019, 00:51 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Добрый вечер, участникам форума!

Не удается завершить один отчет решаемую с помощью PQ. Выгружая из системы файл выявил, что в некоторых ячейках есть текст с лишними пробелами как внутри так и по краям.
Этой функцией удалось решить вопрос с пробелами в конце текста:
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."], " "))
[/vba]

А внутри не убирает.

И такой пробовал тоже:
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."]))
[/vba]

Полный код с условным примером сделал к файлу с условным примером:
[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\Оценка удовлетворенности\Текст для форума.xlsx"), null, true),
    Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data],
    #"Измененный тип" = Table.TransformColumnTypes(Лист1_Sheet,{{"Column1", type text}}),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"№ п.п.", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."], " "))
in
    #"Добавлен пользовательский объект"
[/vba]

Подскажите, пожалуйста, где ошибка?
К сообщению приложен файл: 7192028.xlsx (8.0 Kb)
 
Ответить
СообщениеДобрый вечер, участникам форума!

Не удается завершить один отчет решаемую с помощью PQ. Выгружая из системы файл выявил, что в некоторых ячейках есть текст с лишними пробелами как внутри так и по краям.
Этой функцией удалось решить вопрос с пробелами в конце текста:
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."], " "))
[/vba]

А внутри не убирает.

И такой пробовал тоже:
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."]))
[/vba]

Полный код с условным примером сделал к файлу с условным примером:
[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\Оценка удовлетворенности\Текст для форума.xlsx"), null, true),
    Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data],
    #"Измененный тип" = Table.TransformColumnTypes(Лист1_Sheet,{{"Column1", type text}}),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"№ п.п.", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Trim ([#"№ п.п."], " "))
in
    #"Добавлен пользовательский объект"
[/vba]

Подскажите, пожалуйста, где ошибка?

Автор - Anis625
Дата добавления - 24.04.2019 в 00:51
Anis625 Дата: Среда, 24.04.2019, 01:00 | Сообщение № 2
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
В интернете нашел вариант заменить двойной пробел на одинарный.
Или есть еще варианты?
 
Ответить
СообщениеВ интернете нашел вариант заменить двойной пробел на одинарный.
Или есть еще варианты?

Автор - Anis625
Дата добавления - 24.04.2019 в 01:00
Anis625 Дата: Среда, 24.04.2019, 01:13 | Сообщение № 3
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
В интернете нашел вариант заменить двойной пробел на одинарный.

Этот вариант решил задачку =)
 
Ответить
Сообщение
В интернете нашел вариант заменить двойной пробел на одинарный.

Этот вариант решил задачку =)

Автор - Anis625
Дата добавления - 24.04.2019 в 01:13
sboy Дата: Среда, 24.04.2019, 09:33 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Этот вариант решил задачку

а если будет тройной пробел? :)
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Combine(List.RemoveItems(Text.Split([#"№ п.п."], " "), {""})," "))
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Этот вариант решил задачку

а если будет тройной пробел? :)
[vba]
Код
= Table.AddColumn(#"Измененный тип1", "Пользовательская", each Text.Combine(List.RemoveItems(Text.Split([#"№ п.п."], " "), {""})," "))
[/vba]

Автор - sboy
Дата добавления - 24.04.2019 в 09:33
Anis625 Дата: Среда, 24.04.2019, 13:10 | Сообщение № 5
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
sboy,
На этот случай было рекомендовано выполнить данную процедуру несколько раз. Не практично конечно, но выход из ситуации =)

Ваш вариант надо изучить и в копилку багажа знаний =)
Спасибо вам за предложение
 
Ответить
Сообщениеsboy,
На этот случай было рекомендовано выполнить данную процедуру несколько раз. Не практично конечно, но выход из ситуации =)

Ваш вариант надо изучить и в копилку багажа знаний =)
Спасибо вам за предложение

Автор - Anis625
Дата добавления - 24.04.2019 в 13:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » PQ удалить лишние пробелы внутри текста (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!