[已解决]求助：多单元格数据合一

ppp710715

问题：如何快捷将D、E、F、G四列的数据合并到C列的相应单元格中？原各列的数据用顿号分隔。如：D2：G2的数据合并到C2。因数据太多，有几千个记录，一一复制粘贴太麻烦了。谢谢！ 多单元格数据合一.rar (7.49 KB, 下载次数: 12)

2012-3-12 21:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-3-12 21:54

excel 工作表普通函数合并文本是件困难的事情，用自定义函数就很方便。

自定义函数-合并字符（一行）(VBA).rar (11.42 KB, 下载次数: 16)

2012-3-12 21:54 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

excel 工作表普通函数合并文本是件困难的事情，用自定义函数就很方便。

自定义函数-合并字符（一行）(VBA).rar (11.42 KB, 下载次数: 16)

2012-3-12 21:54 上传

点击文件名下载附件

淡芳有韵

=SUBSTITUTE(SUBSTITUTE(D3&"、"&E3&"、"&F3&"、"&G3,"0、",),"、0",)

hrpotter

1. Sub 合并()
   
2.     Dim i As Integer, j As Integer, irow As Integer
   
3.     Dim ar, br()
   
4.     irow = Range("a65536").End(xlUp).Row
   
5.     ar = Range("d2:g" & irow)
   
6.     ReDim br(1 To UBound(ar), 1 To 1)
   
7.     For i = 1 To UBound(ar)
   
8.         For j = 1 To 4
   
9.             If ar(i, j) <> "" Then
   
10.                 br(i, 1) = br(i, 1) & "、" & ar(i, j)
    
11.             End If
    
12.         Next
    
13.         br(i, 1) = Right(br(i, 1), Len(br(i, 1)) - 1)
    
14.     Next
    
15.     Range("c2:c65536").ClearContents
    
16.     Range("c2").Resize(UBound(br)) = br
    
17. End Sub

复制代码

ppp710715

问题已经解决。谢谢各位的帮助了！非常感谢！

淡芳有韵

ppp710715 发表于 2012-3-13 08:11
问题已经解决。谢谢各位的帮助了！非常感谢！

=SUBSTITUTE(SUBSTITUTE(D3&"、"&E3&"、"&F3&"、"&G3,"0、",),"、0",)