请教大神，如何实现多列变两列？

youarerig

求助大神，帮忙？如何实现多列变两列

满坛皆为吾师

2019/365
A15下拉
=MID(CONCAT(TRANSPOSE(REPT(A$1:E$1,A$2:E$9<>""))),ROW(A1)*2-1,2)
B15下拉
=HLOOKUP(A15,$1:$9,COUNTIF(A$15:A15,A15)+1,)

低版本，区域数组，选中A15:B15两个单元格，输入公式，三键回下，两格一起下拉
=T(INDIRECT(TEXT(RIGHT(REPLACE(SMALL(IF(A$2:E$9<>"",COLUMN(A:E)*10001+ROW($2:$9)/1%),ROW(A1)),{3,1},1,1),3),"R0C00"),))

youarerig

满坛皆为吾师 发表于 2020-11-21 22:41
A15下拉
=MID(CONCAT(TRANSPOSE(REPT(A$1:E$1,A$2:E$9""))),ROW(A1)*2-1,2)
B15下拉

大神，不行啊，显示的是#value！，大神可不可以再赐教一下，在表格里填好，我在下载下来看看行不行？大神，还是不行啊，什么叫三键回下？本人小白，不明白啊

jisijie630

看一看，对不对？

youarerig

满坛皆为吾师 发表于 2020-11-21 22:41
2019/365
A15下拉
=MID(CONCAT(TRANSPOSE(REPT(A$1:E$1,A$2:E$9""))),ROW(A1)*2-1,2)

大神，我还是不明白，什么叫三键回下？不懂，小白一个，望赐教！

魚。。

楼主提到么，补一个：

Sub Fish()
    Dim aa, bb, i&, j&, n&
    aa = [a1].CurrentRegion
    ReDim bb(1 To UBound(aa) * UBound(aa, 2), 1 To 2)
        For j = 1 To UBound(aa, 2)
            For i = 2 To UBound(aa)
                If aa(i, j) <> "" Then
                    n = n + 1
                    bb(n, 1) = aa(1, j)
                    bb(n, 2) = aa(i, j)
                End If
            Next
        Next
    Range("a15:b" & Sheet1.Rows.Count).ClearContents
    [a15].Resize(n, 2) = bb
End Sub

youarerig

魚。。 发表于 2020-11-21 23:13
楼主提到么，补一个：

Sub Fish()

多谢，大神！解决了，如果换一个位置出结果，怎么修改，也就是说如果一列有30行怎么办

youarerig

jisijie630 发表于 2020-11-21 23:09
看一看，对不对？

大神，我看不懂这个，好难！

魚。。

youarerig 发表于 2020-11-22 09:42
多谢，大神！解决了，如果换一个位置出结果，怎么修改，也就是说如果一列有30行怎么办

比如放K1：

Sub Fish()
    Dim aa, bb, i&, j&, n&
    aa = [a1].CurrentRegion
    ReDim bb(1 To UBound(aa) * UBound(aa, 2), 1 To 2)
        For j = 1 To UBound(aa, 2)
            For i = 2 To UBound(aa)
                If aa(i, j) <> "" Then
                    n = n + 1
                    bb(n, 1) = aa(1, j)
                    bb(n, 2) = aa(i, j)
                End If
            Next
        Next
    [k:l].ClearContents
    [k1].Resize(n, 2) = bb
End Sub

chenyun1234

直接PQ大法，
1、转置
2、逆透视其他列