如何将多列数据排成一列？

kidusyuna · 发表于 2012-1-13 12:44

本帖最后由 kidusyuna 于 2012-1-13 14:34 编辑

如上图，请问怎么做可以快捷的将这三组数据合并到一组呢？因为有很多组所以在这里简化了，所以请教教小弟怎么建立一个宏吧！！
示例文件已上传哦

如何将多列数据排成一列？.rar (8.83 KB, 下载次数: 29)

wlc5201130 · 发表于 2012-1-13 13:05

这个不是很多，就3列，建议复制粘贴最简单了

fjzjm · 发表于 2012-1-13 13:09

关注中……，我也想知道方法。

LangQueS · 发表于 2012-1-13 13:16

建议楼主压缩上传简明扼要的 Excel 问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)

Excel Home论坛学习及使用完全攻略(新人必读) http://club.excelhome.net/thread-449518-1-1.html

kidusyuna · 发表于 2012-1-13 14:34

LangQueS 发表于 2012-1-13 13:16
建议楼主压缩上传简明扼要的 Excel 问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已 ...

附件已上传哦~

LangQueS · 发表于 2012-1-13 15:05

H列为何比H列数据行数少呢？

LangQueS · 发表于 2012-1-13 15:30

Sub 转置() '转置 m × n 列为 m 列到指定工作表
m = 5 '循环列数
Sheet2.Cells(1, 1).Resize(1, m) = Cells(1, 1).Resize(1, m).Value '复制标题到指定工作表
For b = 1 To [iv1].End(1).Column Step m '循环列
a = Range(Split(Cells(1, b).Address, "$")(1) & 65536).End(xlUp).Row
c = Sheet2.[a65536].End(xlUp).Row '指定工作表最后行
Sheet2.Cells(c, 1)(2, 1).Resize(a - 1, m) = Cells(2, b).Resize(a - 1, m).Value '复制数据，标题1行不复制
Next
End Sub

复制代码

kidusyuna · 发表于 2012-1-13 17:32

可是没有变化啊

LangQueS · 发表于 2012-1-13 17:38

kidusyuna 发表于 2012-1-13 17:32
可是没有变化啊

2003的：

如何将多列数据排成一列？.rar (37.25 KB, 下载次数: 113)

壹贰叁123 · 发表于 2022-12-2 11:32

LangQueS 发表于 2012-1-13 15:30

这个和我想要的很像但是我看不懂代码，不知道怎么修改。我的只需要两列，没有表头。大佬能否帮看看？

		自动登录	找回密码
密码			免费注册

[求助] 如何将多列数据排成一列？