教你开发分类合并函数车恩俊 ，一个区域数组函数-Excel百宝箱陆汉振 先看效果：Excel有分类汇总工具许俊浩 ，但没有分类合并工具。例如同一个项目对

教你开发分类合并函数车恩俊 ，一个区域数组函数-Excel百宝箱陆汉振
先看效果：

Excel有分类汇总工具许俊浩 ，但没有分类合并工具。
例如同一个项目对应3个数据李诚洁 ，要将这3个数据合并在一起，不作运算。使用本自定义函数可以实现需求。
注要输入公式前需要选择一个较大的区域，然后输入公式安银美，最后按下Ctrl+Shift+Enter组合键结束妖夫宠妻 ，否则无法得到正确结果。
源代码如下：
Function FengleiHB(rng As Excel.Range, rng2 As Excel.Range赵青楚 , Optional FuHan As String = "+") As Variant
Dim Item As Integer唐河彩石, rngarr, rng2arr
rngarr = rng.Value
rng2arr = rng2.Value
Dim arr2超级狂龙分身 , arr3
Dim arr(1 To 9999深红色背景 ,崔宇革 1 To 2) As String
With CreateObject("scripting.dictionary") '创建字典引用
For Item = 1 To UBound(rngarr)
If Len(rngarr(Item, 1)) > 0 Then
.Item(CStr(rngarr(Item, 1))) = .Item(CStr(rngarr(Item马千珊, 1))) & CStr(rng2arr(Item, 1)) & FuHan
End If
Next
arr2 = .keys
arr3 = .items
For Item = 0 To .Count - 1
arr(Item + 1毛楚玉, 1) = arr2(Item)
arr(Item + 1像小朵一样, 2) = Left(arr3(Item), Len(arr3(Item)) - 1)
Next
FengleiHB = arr
End With
End Function

全文详见：https://p66p.cn/8640.html

TOP