excel函数技巧:自定义函数JOINIF函数应用案例
发布网友
发布时间：2024-09-26 21:53
共1个回答
热心网友
时间：2024-10-03 09:54
首先，让我们来认识一下JOINIF函数：
函数名：JOINIF
作用：针对参数范围中满足特定条件的单元格内容进行连接。
参数介绍：
第一参数：（必须）条件区域，用于计算条件的单元格区域。
第二参数：（必须）确定连接条件的表达式。
第三参数：（必须）要连接的实际单元格区域。
JOINIF函数与SUMIF函数相似，但功能上由求和变为文本连接。
以下通过案例进行学习：如图，A、B列为数据源，分别为组别和姓名，目标是形成D、E列的格式：
解决方法：
一、创建自定义函数：
1、新建一个EXCEL文档，保留一个工作表，其余删除。按ALT+F11，打开VBE编辑器，新建一个模块，将以下自定义函数代码复制到模块中，关闭VBE编辑器。
Function JOINIF(Rng1 As Range, Str, Rng2 As Range)
Dim Arr, Brr
Dim i As Long
Dim j As Long
Dim MyStr As String
If Rng1.Rows.Count > 65536 Then
Arr = Rng1.Resize(65536, Rng1.Columns)
Brr = Rng2.Resize(65536, Rng1.Columns)
Else
Arr = Rng1
Brr = Rng2
End If
For i = 1 To UBound(Arr)
For j = 1 To UBound(Arr, 2)
If Arr(i, j) <> "" Then
If Arr(i, j) = Str Then
MyStr = MyStr & Brr(i, j) & ","
End If
Else
Exit For
End If
Next j
Next i
JOINIF = Left(MyStr, Len(MyStr) - 1)
End Function
2、点击【文件】【另存为】，文件保存类型选择“Excel加载宏”。它将自动存入ADDIN文件夹中。
3、从要使用此函数的EXCEL文件的【开发工具】-【加载宏】中勾选所保存的宏文件名，确定。就可以在工作表中的随心所欲的使用自定义的按条件连接文本函数啦。
4、看一下使用效果，是不是很酷呢？
分享完成，有没有懂了呢。有疑问可以一起交流学习！
