将x替换为headertext

Question

我想在Power Query中实现以下目标:在每个单元格中，用标题文本替换x​​：

Column1 Column2 Column3 Column4 Column5

Y z

X y x x

       x         x         z

Z z y x z

       x                   z         y

       x         z                   z

X z z x

此VBA代码通向目标：

选项显式

子Replace_x()

Dim rng As Range, c As Range

Set rng = UsedRange  ' I know ...

For Each c In rng

     If c = "x" Then c = Cells(1, c.Column).Value 'Row\_1 = headers

下一个c

结束子对象

你对我有什么解决方案吗？

感谢并致以最良好的问候

Guenther

Answer 1

Guenther，这段代码解决了你的任务：

= Table.TransformColumns(Source, List.Transform(Table.ColumnNames(Source), each {_, (cellValue)=> if cellValue = "x" then _ else cellValue}))

其中源是包含数据的表-您应该在前面的查询步骤中执行此操作