如何将多列数据变成一列？

开口笑呵呵

Excel问题.rar (11.4 KB, 下载次数: 153)

2018-8-20 17:57 上传

点击文件名下载附件

laowuwyx

1. =IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF(A$3:L$17>0,ROW($3:$17)/1%+COLUMN(A:L)*10001),ROW(A1)),4),"r0c00"),),"")

复制代码

数组。

开口笑呵呵

laowuwyx 发表于 2018-8-20 18:12
数组。

数组公式很不错，就是不知道含义，我正在学习函数，请赐教，详细讲解一下。谢谢

micch

开口笑呵呵 发表于 2018-8-21 09:06
数组公式很不错，就是不知道含义，我正在学习函数，请赐教，详细讲解一下。谢谢

同学习，就我的理解代老师说一下，说不清楚是我表达能力差；

if的条件是区域非空，则得到ROW($3:$17)/1%+COLUMN(A:L)*10001，就是每个非空单元格的行号*100+列号*10001，结果会是一个数组，诸如{10301;10401;10501;10601;10701;10801;10901;11001;11101;11201;11301;20302;20402;20502;20602;20702;30303;30403;30503;30603;30703;30803;30903;31003;31103;40304;40404;40504;40604;40704;40804;40904;41004...........}之类；
small函数则是将生成的数组依次排列，最小的应该是10301，第二个是10401......，因为你要的结果是先行后列，第一列的值都是1****肯定小于第二列的值2****，再用right得到0301,0401这样的值；
用text将0301变为"r3c01"，这样的结果用indirect引用就得到第3行第1列对应值，以此类推；

开口笑呵呵

micch 发表于 2018-8-21 09:48
同学习，就我的理解代老师说一下，说不清楚是我表达能力差；

if的条件是区域非空，则得到ROW($3:$17)/ ...

理解了，谢谢

AbleZeng

这个问题用Power Query,可以快速得到解决。具体操作详见下网址10楼@梦残留影 老师的指点。
需要EXCEL2010以上版本。
http://club.excelhome.net/thread-1430455-1-1.html

PS：你的转换方式，可能错在缺陷，如果存在重名，辨认起来会比较麻烦，建议增加学校名称列，提高数据辨识度。请忽视电脑速度~

everbest2015

Sub hz()
    Dim ar, br(), i&, k&, m&, Temps, r As Range
    ar = Range("A3:L" & Range("a1").CurrentRegion.Rows.Count)
    Set r = Range("A3:L" & Range("a1").CurrentRegion.Rows.Count)
    ReDim br(1 To Application.CountA(r) + 1, 1 To 1)
    br(1, 1) = "教师汇总"
    m = 1
    For i = 1 To UBound(ar, 2)
        For k = 1 To UBound(ar)
            Temps = ar(k, i)
            If Temps <> "" Then
                m = m + 1
                br(m, 1) = Temps
            End If
        Next
    Next
   [P:P].ClearContents
   [P1].Resize(UBound(br)) = br
End Sub

开口笑呵呵

everbest2015 发表于 2018-8-21 16:11
Sub hz()
    Dim ar, br(), i&, k&, m&, Temps, r As Range
    ar = Range("A3:L" & Range("a1").Curre ...

你这个是Excel VBA编程吗？也就是Excel里的宏吗?请指教，谢谢。

开口笑呵呵

AbleZeng 发表于 2018-8-21 11:41
这个问题用Power Query,可以快速得到解决。具体操作详见下网址10楼@梦残留影 老师的指点。
需要EXCEL2010 ...

是的，上面的方法可能会有重名缺陷，但你说的方法必须用2010版本才行，我这没有，怎么办？

micch

开口笑呵呵 发表于 2018-8-21 18:09
是的，上面的方法可能会有重名缺陷，但你说的方法必须用2010版本才行，我这没有，怎么办？

1. =IFERROR(INDIRECT(TEXT(SMALL(IF(A$3:L$17>0,200+COLUMN(A:L)),ROW(A1)),"r0c00"),),"")

复制代码

左侧加一列学校就OK了，同样的公式，更简单一些