PQ格式转换，请求帮忙，谢谢！

10701110016133.zip (9.38 KB, 下载次数: 0)

2020-11-6 00:23 上传

点击文件名下载附件

pq 重复2次空记录 然后再处理

10701110016134.rar (20.64 KB, 下载次数: 0)

2020-11-6 00:32 上传

点击文件名下载附件

pq 重复2次空记录 然后再处理

请问这一步重复插入两行空行是怎么操作的？

笨鸟飞不高 发表于 2019-10-18 16:34
请问这一步重复插入两行空行是怎么操作的？

第三行语句，a就是当前行记录，b是空记录，c是a连接两个b，a. b. C放在一个记录里了，取这个记录的c

第三行语句，a就是当前行记录，b是空记录，c是a连接两个b，a. b. C放在一个记录里了，取这个记录的c

谢谢！！！

谢谢！！！

麻烦再问一下，如果是重复插入三行空行，这行语句又改如何改？

自定义1 = Table.Combine(List.Transform(Table.ToRecords(替换的值),each [a=_,b=Record.FromList(List.Repeat({null},11),Table.ColumnNames(替换的值)),c= Table.FromRecords({a,b,b }) ][c]  ) )

谢谢！！！

知道了，应该是 ... FromRecords({a,b,b,b }) ][c]  ) )...中间再加一项b，就是 重复插手三行空行

谢谢！！！

知道了，应该是语句中每加一项 b 就会多增加一行空行

感谢曾经帮助我的老师们！！趁着今年疫情期间学习了一下VBA！自己的问题用VBA来练习一下！

Sub AwTest()
  Dim i%, j%, r%, arr, TempAr
  arr = [a1].CurrentRegion
  TempAr = Array(1, 2, 3, 4, 5, 6, 7, 10, 11)
  ReDim brr(1 To UBound(arr) * 3, 1 To UBound(arr, 2) - 2)
  For i = 1 To UBound(arr)
  r = r + 1
  For j = 0 To UBound(TempAr)
    brr(r, j + 1) = arr(i, TempAr(j))
  Next
  If r >= 2 Then
    For j = 8 To 9
      If Len(arr(i, j)) Then
      r = r + 1
      brr(r, 5) = arr(i, 5)
      brr(r, 7) = arr(i, j)
      brr(r, 9) = arr(i, 11)
      End If
    Next
  End If
  Next
  [a15].Resize(r, UBound(brr, 2)) = brr
End Sub

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下