例如，数据源：序号 人姓名 数量
1 甲 1.00
2 乙 3.00
3 丙 4.00
4 丁 1.00
5 戊 3.00
6 己 1.00
7 庚 3.00
8 辛 5.00
9 壬 4.00
10 癸 4.00
11 甲 1.00
12 乙 4.00
运行宏后，结果如下：
序号 人姓名 数量
1 甲 1.00
2 乙 3.00
3 丙 4.00
4 丁 1.00
5 戊 3.00
宏内容如下：
Sub myfun()
Dim i As Long
Dim j As Integer
i = 2
Do Until Range("a" & i) = ""
For j = 1 To Range("C" & i)
Rows(i + 1).Insert
i = i
Next
i = i + 1
Loop
End Sub
问：如何在power query 中实现上述效果，依据数量插入行数，数字为3，插入3行？
根据你的图一建了查询，然后添加新列，输入 {1..[数量]}，展开list，完成。完整的代码是
let
源 = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMlTSUXo+ZROQNFSK1YlWMgKynuycCSSNwXxjEH8HiG8C5puA+Y1w9aZA1rOOLrh6MyDr6faNcHlzEH/XLLi8BZD1Yt9sIGkK5luC5BevgZtvaABy0MwdCAF0FxoinAhUEQsA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [序号 = _t, 人姓名 = _t, 数量 = _t]),
更改的类型 = Table.TransformColumnTypes(源,{{"序号", Int64.Type}, {"人姓名", type text}, {"数量", Int64.Type}}),
已添加自定义 = Table.AddColumn(更改的类型, "自定义", each {1..[数量]}),
"展开的“自定义”" = Table.ExpandListColumn(已添加自定义, "自定义")
in
"展开的“自定义”"
根据你的图一建了查询，然后添加新列，输入 {1..[数量]}，展开list，完成。完整的代码是
let
源 = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMlTSUXo+ZROQNFSK1YlWMgKynuycCSSNwXxjEH8HiG8C5puA+Y1w9aZA1rOOLrh6MyDr6faNcHlzEH/XLLi8BZD1Yt9sIGkK5luC5BevgZtvaABy0MwdCAF0FxoinAhUEQsA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [序号 = _t, 人姓名 = _t, 数量 = _t]),
更改的类型 = Table.TransformColumnTypes(源,{{"序号", Int64.Type}, {"人姓名", type text}, {"数量", Int64.Type}}),
已添加自定义 = Table.AddColumn(更改的类型, "自定义", each {1..[数量]}),
"展开的“自定义”" = Table.ExpandListColumn(已添加自定义, "自定义")
in
"展开的“自定义”"
谢谢，完美解决
