目标：将附件中的多列内容首位合并到一列，报错1004

yaoji2011318

Sub zz()
arr = Range("B1").CurrentRegion
For j = LBound(arr, 2) To UBound(arr, 2)
    For I = LBound(arr) To UBound(arr)
n = n + 1
Cells(n, 1) = arr(I, j)
Next
Next

End Sub
请教，将附件中的多列内容首位合并到一列，谢谢！

yaoji2011318

应该是，首尾合并

PQ小学生

模拟一个结果嘛 不然也不知道到底要实现什么？
所有列内容按行 整合到一列中？

yaoji2011318

谢谢！对的，就是将所有列内容按行，整合到一列中。

PQ小学生

还是不理解
1. 如果简单的合并， 公式就可以解决，为何使用VBA？
2. 基于1的猜测，是因为中间要加分隔符 导致写函数太麻烦？
3. 基于 1 2 的猜测 是有很多类似的表格 等着去合并？
4. 如果 1 2 3 全为yes 那么我也只能提供一个powerquery的办法 适用于Excel2010以上。
但是附件我不知道能否满足你的预期（各列内容以逗号分隔），打开时请先启用内容

yaoji2011318

PQ小学生 发表于 2019-1-14 09:36
还是不理解
1. 如果简单的合并， 公式就可以解决，为何使用VBA？
2. 基于1的猜测，是因为中间要加分隔符  ...

首先非常感谢对这个问题的参与！针对你的猜想回答如下：
1.类似数据量非常的大（至少上万条数据）表格很多，公式并不能满足要求；
2.每一列数据的首尾合并指的是附件中这种合并； 谢谢

PQ小学生

多列合一列 or 多行合一列?

PQ小学生

yaoji2011318 发表于 2019-1-15 16:13
首先非常感谢对这个问题的参与！针对你的猜想回答如下：
1.类似数据量非常的大（至少上万条数据）表格很 ...

按照你的解释
我做了两个维度 ,我尽力了  
1. 多行转一列
2.多列转一列

不过存在一个问题： 文件太大了  你到云盘去拿吧(链接只有一天的有效期)：链接：https://pan.baidu.com/s/1DLHnGQ1KJNEH9xxSwRrn_w
提取码：8zy5

yaoji2011318

PQ小学生 发表于 2019-1-15 17:11
按照你的解释
我做了两个维度 ,我尽力了  
1. 多行转一列

非常谢谢，多列合一列 or 多行合一列都能达到我的目的。能不能分享实现这两个结果的方法，非常感谢！

PQ小学生

yaoji2011318 发表于 2019-1-16 08:20
非常谢谢，多列合一列 or 多行合一列都能达到我的目的。能不能分享实现这两个结果的方法，非常感谢！

思路很简单,使用了Powerquery里面的 Table.ToRows函数
一窥解答步骤 请依次点击 数据 显示查询 双击任意一个右侧出现的查询 可以看出每步应用了什么？
图片以多列和一列为例

至于多行合一列 比上一个多了一步 先进行 行与列的转置  然后再进行多列合一列的操作