如题所述
Selection.Merge 直接合并
下面这个合并内容
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each R In Selection
S = S & R.Text & S1
Next
Selection.Merge
Selection = IIf(S1 <> "", Mid(S, 1, Len(S) - 1), S)
Application.EnableEvents = True
Application.DisplayAlerts = True
下面这个合并内容
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each R In Selection
S = S & R.Text & S1
Next
Selection.Merge
Selection = IIf(S1 <> "", Mid(S, 1, Len(S) - 1), S)
Application.EnableEvents = True
Application.DisplayAlerts = True
温馨提示:答案为网友推荐,仅供参考