表格形式转换的方法

文峰wf

求助：有没有什么好办法将红色框内容（矩阵形式），转换成绿色框形式（列表形式）的好办法呢。我工作中需要手工转换的行数非常多，效率非常低，感谢~

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    ar = [A1].CurrentRegion
    ReDim br(1 To UBound(ar) * UBound(ar, 2), 1 To 3)
    r = 1: br(1, 2) = ar(1, 2): br(1, 3) = "数量"
    For i = 2 To UBound(ar)
        r = r + 1
        br(r, 1) = ar(i, 1): br(r, 2) = ar(i, 2)
        For j = 3 To UBound(ar, 2)
            r = r + 1
            br(r, 2) = ar(1, j)
            br(r, 3) = ar(i, j)
        Next j
    Next i
   
    [A7].CurrentRegion.ClearContents
    [A7].Resize(r, 3) = br
    Application.ScreenUpdating = True
    Beep
End Sub

咔咔乱坠

C2下拉
数组公式，需ctrl+shift+回车键入

1. =INDEX($C$7:$C$25,MATCH(1=1,$B2=$B$7:$B$25,)+COLUMN(A1))

复制代码

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1628008&fromguid=hot&extra=&mobile&_dsign=4957085a