Excel 合并选中区域内容

 在处理电子表格时，内容是从word中复制过来的，有许多内容分解到多行单元格

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+k
'
Dim srange As Range
Dim content As String
Dim i As Integer

Set srange = Selection
With srange
For i = 1 To srange.Rows.Count
content = content & srange.Cells(i, 1).Value
srange.Cells(i, 1).Value = ""
Next i
srange.Cells(1, 1).Value = content
End With
End Sub

这个只是简单的处理多行单列，也可以改成处理多行多列。看需求吧