如何将多个单元格的字符合并到一个单元格里呢，请高手帮个忙啊

ruanjianyihao

将多个单元格的内容合并到一个单元格来.rar (10.05 KB, 下载次数: 31)

2012-3-6 21:19 上传

点击文件名下载附件 我遇到一个问题，按理说不难，用concatenate函数，或者用&连接合并就行了，但是一共有1000个格子合并，这个怎么弄啊。求高手帮忙。

zjcat35

1. Sub a()
   
2.     Dim rg As Range, arr(), i As Integer
   
3.     i = [a65536].End(3).Row
   
4.     For Each rg In Range("a1:e" & i)
   
5.         If rg <> "" Then
   
6.             k = k + 1
   
7.             ReDim Preserve arr(1 To k)
   
8.             arr(k) = rg
   
9.         End If
   
10.     Next rg
    
11.     Range("h2") = Join(arr, "1,")
    
12. End Sub

复制代码

windimi007

用自定义函数处理一下吧！比较灵活点，就两个参数。
第一个参数为合并范围，第二个参数为分隔符，具体用法可参见附件的G8单元格。
P.S. 使用前请先启用宏。

1. Option Explicit
   
2. Function hebing(rg As Range, ss As String)
   
3.     Application.Volatile
   
4.     Dim arr
   
5.     Dim i As Long, j As Long
   
6.     Dim sr As String
   
7.     If IsArray(rg) Then
   
8.         arr = rg.Value
   
9.         For i = 1 To UBound(arr)
   
10.             For j = 1 To UBound(arr, 2)
    
11.                 If Not IsEmpty(arr(i, j)) Then sr = sr & ss & arr(i, j)
    
12.             Next j
    
13.         Next i
    
14.         hebing = Mid(sr, Len(ss) + 1)
    
15.     Else
    
16.         hebing = rg.Value
    
17.     End If
    
18. End Function

复制代码

ruanjianyihao

哦，原来是vba啊，原来如此

ruanjianyihao

谢谢两位高手，我vba还是入门级，看了我要研究一下两位的代码了

tayisha

学习了，好东西呀，呵呵