第1个回答 2013-07-29
选中你要合并的区域,招行下面代码
Sub Mergerng()
Dim StrMerge As String
Dim rng As Range
If TypeName(Selection) = "Range" Then
For Each rng In Selection
StrMerge = StrMerge & rng.Value
Next
Application.DisplayAlerts = False
Selection.Merge
Selection.Value = StrMerge
Application.DisplayAlerts = True
End If
End Sub