数据转置

寿司的骆驼

如图和附件，交叉数据如何转置成两列，由于数据比较大，截取了一小部分数据。

wdy895

1. =HSTACK(TOCOL(IF(B3:D5<>"",A3:A5&"/"&B1:D1,x),3),TOCOL(B3:D5,3))

复制代码

寿司的骆驼

wdy895 发表于 2024-6-4 11:20

老师，要是数据扩展了，修改那些内容那？

wdy895

寿司的骆驼 发表于 2024-6-4 12:54
老师，要是数据扩展了，修改那些内容那？

数据拓展了你就跟着把公式里的单元格区域一起拓展就可以了。

逐渐陌生

Askinofblue

用表堆堆给出的答案



虽然看上去比公式复杂一点，但是不用像公式那么烧脑

表堆堆：

https://www.lanzoub.com/iU75Y20tcked

cai199105

Sub 试试()
Dim i%, j%, k%
k = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  For j = 2 To 4

    Sheets(2).Cells(k, 1) = Sheets(1).Cells(i, 1) & "/" & Sheets(1).Cells(1, j)
    Sheets(2).Cells(k, 2) = Sheets(1).Cells(i, j)
    k = k + 1
    Next
   
Next

End Sub

静听溪流

和这个二维转一维数据的类似

1. 2.02 复制打开抖音，看看【别挡着我的阳光的图文作品】二维数据转一维（多重合并计算数据区域法）# 我在抖... https://v.douyin.com/ijyNLKx2/ 03/16 R@K.wS EUY:/

复制代码

沈默00

沈默00

数据量大推荐VBA，，结果放在第二个表里，，，，