EXCEL数据转置问题

chihuahuas34

大家好，关于数据转置，如附件举例，可以用公式函数或者VBA

chihuahuas34

感谢大神们帮助

chihuahuas34

感谢大神们的帮助

静看流年RSSQ

  PQ    逆透视。  后面序号  、不太会处理，等大神来吧。

每列一个公式  ：下拉
A10   
=IF(MOD(ROW(),5)=0,INDEX($A$3:$A$7,ROW()/5-1),"")

B10  
=OFFSET($A$2,,MOD(ROW(),5)+1)

C10
=OFFSET($A$2,INT(ROW()/5)-1,MOD(ROW(),5)+1)

microyip

http://club.excelhome.net/thread-1517858-1-1.html 用类做自定义SQL读取函数及数组转置函数，参考变通一下

约定的童话

Sub test()
    Dim i, n, j, arr, brr
    arr = [a1].CurrentRegion
    ReDim brr(1 To 1000, 1 To 3)
    For i = 3 To UBound(arr)
        For j = 2 To UBound(arr, 2)
            n = n + 1
            brr(n, 1) = arr(i, 1)
            brr(n, 2) = arr(2, j)
            brr(n, 3) = arr(i, j)
        Next
    Next
    [j1].Resize(UBound(brr), 3) = brr
End Sub
简单俩数组转换下

chihuahuas34

约定的童话 发表于 2020-1-13 18:27
Sub test()
    Dim i, n, j, arr, brr
    arr = [a1].CurrentRegion

非常感谢

chihuahuas34

约定的童话 发表于 2020-1-13 18:27
Sub test()
    Dim i, n, j, arr, brr
    arr = [a1].CurrentRegion

再问一下，我要是想把转换后的数据放在另一个SHEET中  应该改下哪里

约定的童话

chihuahuas34 发表于 2020-1-16 10:20
再问一下，我要是想把转换后的数据放在另一个SHEET中  应该改下哪里

sheets("汇总").[j1].Resize(UBound(brr), 3) = brr把括号里面工作表名称改成你需要放的，大括号单元格里面J1改成你需要放置的单元格

Lonzo丶

PQ逆透视。
选中Columns1列，Unpivot Columns下拉选择Unpivot Other Columns。