replace - 用 headertext 替换 ax

Question

我想在 Power Query 中实现以下功能：在每个单元格中，将一个 x 替换为标题的文本：

列 1 列 2 列 3 列 4 列 5

yz
xyxx
xxz
zzyxz
xzy
xzz
xzzx

此 VBA 代码导致目标：

选项显式

Sub Replace_x()
Dim rng As Range, c As Range
Set rng = UsedRange ' 我知道 ...
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}))

Source 是您的数据的表格 - 您应该在之前的 Query 步骤中进行