快速合并单元格(2/2)

数据表如下图中A列至D列所示，需要将C列和D列的数据进行合并。每个编号组中，C列合并后，保留第一个单元格（户主姓名），结果如F列至I列所示。

《快速合并单元格(1/2)》中讲解了利用MergeArea来实现单元格合并，其实还有更简单的方法。

示例代码如下。

Sub Demo2()
    lst = Cells(ActiveSheet.Rows.Count, 1).End(xlDown).Row
    [B1].Resize(lst, 1).Copy
    [C1].Resize(lst, 2).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

【代码解析】
第2行代码获取A列最后数据行的行号。
第3行代码A列数据。
第4行代码在C列和D列对应区域粘贴格式。

---

三行代码可以实现同样的结果，无需循环，如果数据量比较大，此方法效率更高。