代碼如下：

Sub 合并單元格()
'關(guān)閉屏幕更新和警告提示
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i%
'循環(huán)統(tǒng)計(jì)選中區(qū)域的單元格數(shù)據(jù)并將其合并到StrTotal中
For i = 1 To Selection.Count
StrTotal = StrTotal & Selection.Cells(i)
Next
'設(shè)置選區(qū)格式
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = "'" & StrTotal  '在合并數(shù)據(jù)前加 '號(hào)
End With
'恢復(fù)屏幕更新和警告提示
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub