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

Question

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

感谢您的反馈

Answer 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