poi判断合并行_【 VBA小代码】批量合并单元格

诸君好，我们今天分享的VBA小代码内容是批量合并相同值的单列单元格。

照例举个例子，如下图所示，A列是班级字段，需要将相同的班级单元格修改为合并单元格……

代码如下：

Sub MergeRange()
    'EH技术论坛：VBA编程学习与实践 看见星光
    Dim rngData As Range
    Dim i&, lngCol&, lngFirst, lngLast
    On Error Resume Next
    Set rngData = Application.InputBox("请选择单列数据列！", Default:=Selection.Address, Type:=8)
    '用户选择数据列
    Set rngData = Intersect(rngData.Parent.UsedRange, rngData)
    'intersect语句避免用户选择整列造成低效运算
    lngCol = rngData.Column 'rngData所在列
    lngFirst = rngData.Row
    '用户选择的区域并不是一定从第一行开始，使用此句读取开