把以下代码： Sub 合并等值() End Sub 改成以下 Sub 合并等值() Dim rgScan As Range, rgPrev As Range, rgFirst As Range Application.DisplayAlerts = False Set rgFirst = Selection(1, 1) Set rgPrev = Selection(1, 1) For Each rgScan In Selection If rgScan rgFirst Then Range(rgFirst, rgPrev).Merge Set rgFirst = rgScan End If Set rgPrev = rgScan Next rgScan Range(rgFirst, rgPrev).Merge Application.DisplayAlerts = True End Sub 关闭弹出的窗口
