Question

将EXCEL 有内容的所有单元格排成一列

1.是排成一列，不需要合并单元格
2.有公式的话，麻烦给解释一下，我是个菜鸟，以后得灵活着用
3.可以在同一张表里，也可以在新建的表里
4.举个例子
1 2 3
4 5 6
7
8
9 0
我想要的结果是
1
2
3
4
5
6
7
8
9
0
可以不按照顺序哈！单元格里不是数字，是文本！

Answer 1

 

 

1. 设有3列，在A到C列， 在D1单元格输入：

 

=INDEX(A:C,ROUNDUP(ROW(A1)/3,),MOD(ROW(A1)-1,3)+1)

 

一直下拉。

 

以上公式需要自己按照实际情况修改，例如A:C，6列的话3就改成6.

 

2. 选中该列，复制该列 - 右击 - 选择性粘贴 - 数值，然后按Ctrl + H，把 0 替换成空白。然后按Ctrl+G ，定位条件 - 空值。然后按Ctrl + - ，删除行，把空白行删除掉就ok了。

 

 

 

 

 

Answer 2

=LARGE($B$1:$D$5,ROW(A1))下拉
区域自己调整
如果非要从小到大的话
=small($B$1:$D$5,ROW(A1))

追问

抱歉哈！是我没说清楚。单元格里的内容不是数字，是文本

追答

alt+f11 复制进去
Sub huizong()
Dim sh As Range
Dim i, j As Integer
i = 1
j = Sheet1.Range("a65536").End(xlUp).Row
Sheet1.Range("a1:a" & j).ClearContents
For Each sh In Range("b1:d10")
If sh.Value "" Then
Cells(i, 1) = sh.Value
i = i + 1
End If
Next
End Sub
按下f5运行b1:d10这个区域你自己修改，在a列中生成你要的效果

追问

你看一下是不是有什么问题啊！我输进去了，什么反应都没有……

追答

我试了可以

Answer 3

这个好像用WORD做比较方便，把内容拷贝到WORD里，再执行"把表格转换成文本“，文字分隔符选段落标记就可以了，再拷回EXCEL里成一列就可以了

Answer 4

如果数据不在同一行、同一列，或者不对齐的情况下，用函数不好办。其实用基础操作也不慢。

追问

数据量在20000个左右……

Answer 5

实用价值