VBAmacros：将两列合并为1

我已经检查了所有在Excel中使用macros在Excel中合并单元格的答案，但我很难理解代码。

说明：我想将包含“Lastname”和“Firstname”的两个单元格合并到第3行的一个单元格中。

感谢您帮助球员。

Answer 1

有了这样的数据：

运行这个macros：

Sub MerThem() Set r = Range("3:3").Find(what:="Lastname", After:=Range("3:3")(1)) v = r.Value & r.Offset(0, 1).Value r.Clear r.Offset(0, 1).Clear Range(r, r.Offset(0, 1)).MergeCells = True r.Value = v End Sub 

会产生：