Question

EXCEl高手们请指教！遇到难题了

如何几列横向排列的数据，全部显示在一列？

Answer 1

选中数据执行宏 不限数据行列
Sub ss()
Dim i
For i = 1 To Selection.Count
[F1].Offset(i - 1, o) = Selection(i)
'F1 可以自己改
Next
End Sub

追问

我采用了稍简单的方法，非常感谢您！

Answer 2

=INDIRECT(ADDRESS(INT(ROW(A3)/3),MOD(ROW(A3),3)+1))
或
=INDIRECT("R"&INT(ROW(A3)/3)&"C"&MOD(ROW(A3),3)+1,)
或
=INDEX($A$1:$C$3,INT(ROW(A3)/3),MOD(ROW(A3),3)+1)
或
=OFFSET($A$1,INT(ROW(A3)/3-1),MOD(ROW(A3),3))
这几个公式都可以办到啊

Answer 3

F1输入公式后，按CTRL+SHIFT+ENTER
=INDIRECT(TEXT(SMALL(IF(A$1:C$6="",4^8,ROW($1:$6)*10+{1,2,3}),ROW(A1)),"r0c0"),)&""

Answer 4

这个用录制宏来做吧

追问

您能教一下我吗？