如何合并多列到单列在Excel中使用VBA
如果您需要将多个列组合到列上并且没有任何线索，那么整篇文章都适合您。在本文中，我们将学习如何使用vba代码将多列合并为一列。
从下面的快照：-
|以下是require输出的快照：-
我们需要执行以下步骤：
单击“开发人员”选项卡。从“代码”组中选择“ Visual Basic”
在标准模块中输入以下代码
子MultipleColumns2SingleColumn（）
Const shName1 As String =“ Sheet1”’在此处更改工作表名称
Const shName2 As String =“ Sheet2”
Dim arr，arrNames
使用工作表（shName1）
arrNames = .Range（“ F1”，.Cells（1，Columns.Count）.End（xlToLeft））
对于i = 2到.Cells（Rows.Count，1）.End（xlUp）.Row
arr = .Cells（i，1）.Resize（，4）
使用工作表（shName2）
使用.Cells（Rows.Count，1）.End（xlUp）
.Offset（1）.Resize（UBound（arrNames，2），4）= arr
以
Offset（1，5）.Resize（UBound（arrNames，2））= Application.Transpose（arrNames）
结尾
以
结尾
下一个
以
结尾
结束子
在执行宏时；宏会将数据从多列传输到单列。
这样，我们可以将多个列数据合并到一个列中。
