用vba代码怎么把选择区域的数据合并为一个数据。

欢子1999

就是任意选择区域（比如图1所示，当然区域会改变），然后就执行一个vba代码，自动把数据合并为图2的样子，要具有普遍性，选择任意的区域后能够使用vba合并这些区域的数据在合并的单元格里？？谢谢

№▁▃风筝﹋

1. Sub test()
   
2. Dim b As String
   
3. Application.DisplayAlerts = False
   
4. For Each a In Selection
   
5.     b = b & a.Value
   
6. Next
   
7. Selection.Merge
   
8. Selection.Value = b
   
9. Application.DisplayAlerts = True
   
10. End Sub
    

复制代码

qiuhonghao

这个容易。

1. Option Explicit
   
2. Sub Merge()
   
3.     Dim s$, c
   
4.     If TypeName(Selection) = "Range" Then
   
5.         For Each c In Selection
   
6.             s = s & c.Value
   
7.         Next
   
8.         Application.DisplayAlerts = False
   
9.         Selection.Merge
   
10.         Selection.Value = s
    
11.         Application.DisplayAlerts = True
    
12.     End If
    
13. End Sub
    

复制代码

qiuhonghao

这个容易。

1. Option Explicit
   
2. Sub Merge()
   
3.     Dim s$, c
   
4.     If TypeName(Selection) = "Range" Then
   
5.         For Each c In Selection
   
6.             s = s & c.Value
   
7.         Next
   
8.         Application.DisplayAlerts = False
   
9.         Selection.Merge
   
10.         Selection.Value = s
    
11.         Application.DisplayAlerts = True
    
12.     End If
    
13. End Sub
    

复制代码