【小白求助！！】关于Excel数据转置的问题，求大神指导

昨夜太平常

因为工作需要 现在需要把表格改成以下形式，数据量很大，请问有什么方法可以快速解决！感激不尽！！

例1.rar (7.94 KB, 下载次数: 8)

2019-6-11 09:17 上传

点击文件名下载附件

eqzh

=IF(MOD(COLUMN(),2)=1,OFFSET($A$1,0,ROUND(COLUMN()/2,0)-1),OFFSET($A$1,1,(COLUMN()/2-1)))，右拉

昨夜太平常

eqzh 发表于 2019-6-11 11:23
=IF(MOD(COLUMN(),2)=1,OFFSET($A$1,0,ROUND(COLUMN()/2,0)-1),OFFSET($A$1,1,(COLUMN()/2-1)))，右拉

大神，非常感谢！！

gykg-excel

=INDIRECT(TEXT(MOD(SMALL(ROW($A$1:$F$2)*100+COLUMN($A$1:$F$2)+COLUMN($A$1:$F$2)*10^4,COLUMN(A1)),10^4),"R0C00"),)

昨夜太平常

gykg-excel 发表于 2019-6-11 15:06
=INDIRECT(TEXT(MOD(SMALL(ROW($A$1:$F$2)*100+COLUMN($A$1:$F$2)+COLUMN($A$1:$F$2)*10^4,COLUMN(A1)),10^ ...

大神 我看了一下  好像都只是适用于一行的而已  我的数据量很大 有很多很多行  那应该怎么做

gykg-excel

调整数据引用的区间就可以了。ROW($A$1:$F$2)*100+COLUMN($A$1:$F$2)+COLUMN($A$1:$F$2)

sanxiao88

如果数据量很大，还需要放在一行么？毕竟列数有限制啊！似乎是1.6万多。
若用公式的话，效率低，数据量大了可能会很卡。
建议写一段vba，通过选择性粘贴转置即可，循环次数为现有数据列数。效率高，速度快。希望对你有启发。