作业帮 > 综合 > 作业

execl里怎样将几列数据变成一列数据?

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/07 05:53:17
execl里怎样将几列数据变成一列数据?
有几列数据:
A B C
12 22 23
24 55 56
18 66
33
各列的数据数目可知A列4个、B列2个、C列3个
现在想得出D列数据
D
12
24
18
33
22
55
23
56
66
实际情况是可以有好几十列数据,每列数据长短不一.
请问EXECL函数怎样写?
execl里怎样将几列数据变成一列数据?
用VBA:
Sub mymove()
Cells(1, 1).End(xlDown).Select
r = ActiveCell.Row
c = 2
While Cells(1, c) ""
p = 1 '每列从第一行开始,如果是从第二行开始,则改成 p = 2
While Cells(p, c) ""
r = r + 1
Cells(r, 1) = Cells(p, c)
Cells(p, c) = ""
p = p + 1
Wend
c = c + 1
Wend
End Su