如何用VBA合并表格选定区域的单元格

betelehe

如何用VBA合并表格选定区域的单元格（每行的选定区域合并成一个）
如“表一”所示，阴影区域是用鼠标自由选择的，选择之后想通过VBA一键合并成“表二”那样的效果。
请高手帮忙。 556556556.rar (10.94 KB, 下载次数: 11)

2019-8-19 18:18 上传

点击文件名下载附件

413191246se

* 楼主，以下代码具有局限性，仅适用于单行文本单元格，请试用：

1. Sub aaab合并表格单元格()
   
2.     Dim r As Range, i&, j&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then MsgBox "请选定表格区域！", 0 + 16: End
   
5.         Set r = .Range
   
6.         j = .Rows.Count
   
7.         Do
   
8.             .HomeKey 5
   
9.             .SelectCell
   
10.             .MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    
11.             .Cells.Merge
    
12.             .Text = Replace(Selection.Text, vbCr, "")
    
13.             .MoveDown Unit:=wdLine, Count:=1
    
14.             i = i + 1
    
15.         Loop Until i = j
    
16.     End With
    
17. End Sub

复制代码

betelehe

413191246se老师，您的代码测试没问题，很好用
朱荣兴 老师，您说的数组思路，我会写写试试。
感谢2位高手，真的很厉害。