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

笨鸟飞不高 · 发表于 2019-10-18 10:37

PQ格式转换，请求帮忙，谢谢！.zip (9.38 KB, 下载次数: 18)

libo5563 · 发表于 2019-10-18 13:20

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

笨鸟飞不高 · 发表于 2019-10-18 16:34

libo5563 发表于 2019-10-18 13:20
pq 重复2次空记录然后再处理

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

libo5563 · 发表于 2019-10-18 19:07

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

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

笨鸟飞不高 · 发表于 2019-10-19 11:42

libo5563 发表于 2019-10-18 19:07
第三行语句，a就是当前行记录，b是空记录，c是a连接两个b，a. b. C放在一个记录里了，取这个记录的c

谢谢！！！

笨鸟飞不高 · 发表于 2019-10-19 11:52

笨鸟飞不高发表于 2019-10-19 11:42
谢谢！！！

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

自定义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] ) )

笨鸟飞不高 · 发表于 2019-10-19 11:57

笨鸟飞不高发表于 2019-10-19 11:42
谢谢！！！

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

笨鸟飞不高 · 发表于 2019-10-19 11:58

笨鸟飞不高发表于 2019-10-19 11:42
谢谢！！！

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

笨鸟飞不高 · 发表于 2020-9-16 09:41

感谢曾经帮助我的老师们！！趁着今年疫情期间学习了一下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

		自动登录	找回密码
密码			免费注册

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

评分