Sub 合并并保留数据() Dim R As Range Dim T As String For Each R In Selection If T = "" Then T = R.Text Else T = T & vbCrLf & R.Text Next Application.DisplayAlerts = False Selection.Range("A1") = T Selection.Merge Application.DisplayAlerts = True End Sub本回答被网友采纳