exce:请问如何将多列数据合并成一列数据?

来源：百度知道 编辑：UC知道 时间：2024/05/30 12:14:40
例:A1-A10,B1-B10,C1-C10......都有数据.
将A,B...列的数据合并成一列在A列上.
谢谢smallcolour 的回答,但是结果不是我要.不过还是谢谢你.
例:A B C 三列
01 04 07
02 05 08
03 06 09

我想要的结果是:
A
01
02
03
04
05
06
07
08
09
注:不要说剪切,粘贴的方法,因为有几百列以上.

在A列之前插入一列变成A列.(其后的列各往后顺延一列)
然后在A1输入=B1&C1&D1
然后选中A1向下填充到A10
然后复制,右击菜单-选择性粘贴-数值.
再把BCD三列删除.
*****************
按下ALT+F11,菜单:插入-模块,复制下列代码,并按F5运行.看看能不能达到你的要求.

Sub aaa()
Dim a As Integer
Dim b As Integer
a = Range("b1").CurrentRegion.Columns.Count
b = WorksheetFunction.CountA(Range("a:a")) + 1
Range("a" & b).Select
For x = 1 To a
b = WorksheetFunction.CountA(Range(Cells(1, x + 1), Cells(65536, x + 1)))
For y = 1 To b
ActiveCell.Value = Cells(y, x + 1)
ActiveCell.Offset(1, 0).Select
Next
Next
End Sub