VBA 宏：将两列合并为 1

【问题标题】：VBA Macro: Merging two columns into 1VBA 宏：将两列合并为 1
【发布时间】：2015-03-07 15:33:30
【问题描述】：

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

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

感谢大家的帮助。

【问题讨论】：

标签： excel vba

【解决方案1】：

使用如下数据：

运行这个宏：

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

将产生：

【讨论】：