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

从本质上讲，我有一些将创build两列数据的代码。 我需要连接水平相邻的单元格（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