将一行中的两个单元格的数据合并为一个，重复列中的所有单元格

【问题标题】：Merge data from two cells in a row to one, repeat with all cells in column将一行中的两个单元格的数据合并为一个，重复列中的所有单元格
【发布时间】：2015-12-15 15:22:13
【问题描述】：

基本上，我有一些代码可以创建两列数据。我需要水平连接彼此相邻的单元格（A1:B1 合并、A2:B2 合并、A3:B3 合并等），但我发现的代码似乎都没有帮助。

感谢您的反馈

【问题讨论】：

请查看How to ask good question链接。

标签： vba excel merge

【解决方案1】：

也许是这样的，

dim rw as long
application.displayalerts = false
with worksheets("sheet1")
    for rw = 1 to .cells(rows.count, 1).end(xlup).row
        .cells(rw, 1) = join(array(.cells(rw, 1).value2, .cells(rw, 2).value2), chr(32))
        .cells(rw, 1).resize(1, 2).merge
    next rw
end with
application.displayalerts = true

【讨论】：

公式不是更简单吗？ c列中的=a1&b1之类的东西并向下拖动？编辑：哦，你把字面意思合并了。
我的印象是单元格必须物理合并。当然，考虑到这个问题的普遍含糊性，我可能完全不合时宜。 tbh，有时我只是想在写语法错误之前看看我能写多少代码。