把多列数据按行提取到一列排列。

13061057983

例如E2，F2的数据排在L2，L3的位置，B3，F3，J3的数据排在L4，L5，L6的位置；以此类推。

nsxlyj

用技巧可以解决，思路是多行转换为1行，再转置，删除空格

13061057983

nsxlyj 发表于 2018-2-22 14:33
用技巧可以解决，思路是多行转换为1行，再转置，删除空格

2003版好像没有这种功能，一列一列的提取比较麻烦，还容易出错，请问有没有什么公式可提取？

nsxlyj

13061057983 发表于 2018-2-22 14:39
2003版好像没有这种功能，一列一列的提取比较麻烦，还容易出错，请问有没有什么公式可提取？

2003版好像没有什么功能，转置吗？

mrzhang007988

最好发个附件，大家下载方便研究

Look我在这

上传附件吧，

sdc3211772

L2：=INDIRECT(TEXT(SMALL(IF($A$1:$J$99<>"",ROW($1:$99),ROW($A$100))/1%%+COLUMN($A$1:$J$1),ROW(A1)),"r0c0000"),)&""
三键，下拉

hcm19522

L2:L19{=IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF(A$2:J$9<>"",ROW(A$2:J$9)/1%+COLUMN(A2:J9)*10001),ROW(A1)),4),"!R0C00"),),"")

M2:M19{=IFERROR(INDIRECT(TEXT(SMALL(IF(A$2:J$9<>"",ROW(A$2:J$9)/1%+COLUMN(A2:J9)),ROW(A1)),"!R0C00"),),"")

13061057983

hcm19522 发表于 2018-2-22 15:25
L2:L19{=IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF(A$2:J$9"",ROW(A$2:J$9)/1%+COLUMN(A2:J9)*10001),ROW(A1)) ...

第一个公式，提取不出来数据，不知为什么？

吧123456789

Sub ii()
Dim ar(1 To 1000000, 1 To 1)
    For Each k In Me.UsedRange
        If k.Value <> "" Then
            n = n + 1
            ar(n, 1) = k.Value
        End If
    Next
    Cells.Clear
    [a:a] = ar
End Sub