代码如下：

Sub 合并单元格()
\'关闭屏幕更新和警告提示
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i%
\'循环统计选中区域的单元格数据并将其合并到StrTotal中
For i = 1 To Selection.Count
StrTotal = StrTotal & Selection.Cells(i)
Next
\'设置选区格式
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = "\'" & StrTotal \'在合并数据前加 \'号
End With
\'恢复屏幕更新和警告提示
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub