Добрый день, всем участникам форума! Наверняка простое решение у этого вопроса, но в интернете не нашел решения. Не получается удалить запросом PQ звездочки: [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Шапка 1", type text}, {"Шапка 2", type any}}), #"Замененное значение" = Table.ReplaceValue(#"Измененный тип","~*","nulll",Replacer.ReplaceValue,{"Шапка 2"}) in #"Замененное значение"
[/vba] Пробовал и просто "*" и так "~*" (где то в интернете видел).
Добрый день, всем участникам форума! Наверняка простое решение у этого вопроса, но в интернете не нашел решения. Не получается удалить запросом PQ звездочки: [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Шапка 1", type text}, {"Шапка 2", type any}}), #"Замененное значение" = Table.ReplaceValue(#"Измененный тип","~*","nulll",Replacer.ReplaceValue,{"Шапка 2"}) in #"Замененное значение"
[/vba] Пробовал и просто "*" и так "~*" (где то в интернете видел).Anis625
как бы не ясно - вы хотите удалить звездочки или написать вместо них "null"? или значение со звездочкой должно превратиться в null? пример не помешал бы а так - вдруг правильно:[vba]
Код
let from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.ReplaceValue(from,"*","",Replacer.ReplaceText,{"Шапка 2"}) in to
[/vba]
как бы не ясно - вы хотите удалить звездочки или написать вместо них "null"? или значение со звездочкой должно превратиться в null? пример не помешал бы а так - вдруг правильно:[vba]
Код
let from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.ReplaceValue(from,"*","",Replacer.ReplaceText,{"Шапка 2"}) in to
прохожий2019, Почти то что нужно, в остальных ячейках выдает ошибку там где нет * Наверно ошибку можно заменить при помощи try if ... then ... else ... правильно рассуждаю? Спасибо за подсказку новой формулы Replacer.ReplaceText
прохожий2019, Почти то что нужно, в остальных ячейках выдает ошибку там где нет * Наверно ошибку можно заменить при помощи try if ... then ... else ... правильно рассуждаю? Спасибо за подсказку новой формулы Replacer.ReplaceTextAnis625
а вот это правильно, посмотрите ещё варианты (но вышеуказанный самый шустрый) - то же через Replace: [vba]
Код
let f=(x)=>if Value.Is(x,Text.Type) then Number.From(Text.Replace(x,"*","")) else x,
from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.ReplaceValue(from,(x)=>x[Шапка 2],(x)=>f(x[Шапка 2]),Replacer.ReplaceValue,{"Шапка 2"}) in to
[/vba]или вот такой вариант чисто под эту задачу [vba]
Код
let f=(x)=>if Value.Is(x,Text.Type) then Expression.Evaluate(x&"1") else x,
from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.TransformColumns(from,{"Шапка 2", f}) in to
а вот это правильно, посмотрите ещё варианты (но вышеуказанный самый шустрый) - то же через Replace: [vba]
Код
let f=(x)=>if Value.Is(x,Text.Type) then Number.From(Text.Replace(x,"*","")) else x,
from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.ReplaceValue(from,(x)=>x[Шапка 2],(x)=>f(x[Шапка 2]),Replacer.ReplaceValue,{"Шапка 2"}) in to
[/vba]или вот такой вариант чисто под эту задачу [vba]
Код
let f=(x)=>if Value.Is(x,Text.Type) then Expression.Evaluate(x&"1") else x,
from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content], to = Table.TransformColumns(from,{"Шапка 2", f}) in to