如何将多行多列数据转换成固定的列数？

friend5649

请教各位大神，如何转换数据？参阅附件。谢谢

山菊花

VBA方法，供参考。

tony@cq

PQ参考法。

friend5649

山菊花 发表于 2021-8-3 10:24
VBA方法，供参考。

总版主的方法很方便，可惜的是，研究了半天，没整明白。
方便注释一下代码吗？谢谢
Sub Test()
    Dim nRow%, nL%, Arr(), Brr(), m%, k%
    nRow = Range("a1").End(xlDown).Row
    nL = Range("a1").End(xlToRight).Column + 1
    Arr = Range("a1").Resize(nRow, nL).Value
    ReDim Brr(nRow * ((nL - 2) \ 10 + 1), 1 To 12)
    For i = 1 To 12
        Brr(0, i) = Arr(1, i)
    Next
    For i = 2 To nRow
        For j = 3 To nL
            If j Mod 10 = 3 Then
                If Brr(m, 1) = Arr(i, 1) Then Brr(m, 2) = 10
                m = m + 1
                Brr(m, 1) = Arr(i, 1)
                k = 2
            End If
            If Arr(i, j) = "" Then Brr(m, 2) = k - 2: Exit For
            k = k + 1
            Brr(m, k) = Arr(i, j)
        Next
    Next
    UsedRange.Offset(nRow).ClearContents
    Range("a" & nRow + 3).Resize(m + 1, 12).Value = Brr
    Range("a" & nRow + 3).Resize(m + 1, 12).Borders.LineStyle = 1
End Sub

chenyun1234

好像365版有2个函数组合转换

山菊花

friend5649 发表于 2021-8-3 13:11
总版主的方法很方便，可惜的是，研究了半天，没整明白。
方便注释一下代码吗？谢谢
Sub Test()

2楼附件已更新，添加注释。

xlllw203

1. =IFERROR(INDEX($C$2:$X$5,MATCH(A9:A18,$A$2:$A$5,0),COLUMN($A:$J)+10*({0;1;2;0;1;2;0;1;0;1})),"")

复制代码

选中C9:L18，三键数组公式

friend5649

山菊花 发表于 2021-8-3 17:31
2楼附件已更新，添加注释。

您好，版主，其实我就这一句搞不懂，为什么要这样写这条公式。
  ReDim Brr(nRow * ((nL - 2) \ 10 + 1), 1 To 12)

friend5649

山菊花 发表于 2021-8-3 10:24
VBA方法，供参考。

还有，重量数 刚好是10的倍数时，会多出一个空行。

山菊花

friend5649 发表于 2021-8-8 18:50
还有，重量数 刚好是10的倍数时，会多出一个空行。

nRow是原始数据行数，nL为列数+1
nRow * ((nL - 2) \ 10 + 1)是估算结果行数，不小于实际行数。
错误修改：
If Brr(m, 3) <> "" Then m = m + 1 '结果的行号