代碼如下：

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