Excel 合并选中区域内容

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

 

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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

　　

 

 

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

如果有新的需求，可以留言联系我改进。