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

笨鸟飞不高

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

2019-10-18 10:36 上传

点击文件名下载附件

libo5563

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

笨鸟飞不高

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

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

libo5563

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

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

笨鸟飞不高

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

谢谢！！！

笨鸟飞不高

笨鸟飞不高 发表于 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:42
谢谢！！！

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

笨鸟飞不高

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

知道了，应该是语句中每加一项 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