wordpress百度秀,长沙seo优化报价,商城网站源文件下载,网盘资源搜索神器上一篇文章向大家介绍了如何使用VBA在低版本Excel中创建unique函数的方法#xff0c;今天我跟大家分享一下如何使用函数连接指定区域的唯一值#xff0c;也就是将unique函数获取的唯一值连接合并成一个#xff0c;并指定连接符。 同样#xff0c;我们需要先创建一个自定义的… 上一篇文章向大家介绍了如何使用VBA在低版本Excel中创建unique函数的方法今天我跟大家分享一下如何使用函数连接指定区域的唯一值也就是将unique函数获取的唯一值连接合并成一个并指定连接符。 同样我们需要先创建一个自定义的ConcatenateUnique函数简称CUnique函数该函数有两个参数一个是定义范围一个是定义连接符。 使用方法如下 例CUnique(C1:C7,,) 计算结果如下图。 VBA创建CUnique函数的代码如下
Option Explicit
Function CUnique(ByRef rngRange As Range, Optional ByVal Seperator As String , Optional ByVal Format As String , Optional ByVal CaseSensitive As Boolean False) As String连接指定区域的唯一值并指定连接符。Dim rng As RangeDim strAnswer As StringDim strTemp As StringDim CompMethod As VbCompareMethod为InStr函数设置文本比较模式If CaseSensitive ThenCompMethod vbBinaryCompareElseCompMethod vbTextCompareEnd IfFor Each rng In rngRangestrTemp rng.Value仅处理非空单元格If Not strTemp vbNullString Then应用格式strTemp Application.WorksheetFunction.Text(strTemp, Format)首先初始化结果字符串, 然后合并If strAnswer vbNullString ThenstrAnswer strTempElse仅合并唯一值If InStr(1, Seperator strAnswer Seperator, Seperator strTemp Seperator, CompMethod) 0 ThenstrAnswer strAnswer Seperator strTempEnd IfEnd IfEnd IfNext rng返回结果字符串CUnique strAnswer
End Function 此外我们还可以创建JoinUnique函数来实现这一效果简称JUnique函数使用方法跟CUnique函数相同。 使用方法如下 例JUnique(C1:C7,,) VBA创建JUnique函数的代码如下
Option Explicit
Function JUnique(rng As Range, del As String) As String连接指定区域的唯一值并指定连接符。Dim d As ObjectSet d CreateObject(scripting.dictionary)Dim r As RangeDim str As StringFor Each r In rngstr r.Value仅处理非空单元格If Not str vbNullString Thend(r.Text) End IfNextJUnique Join(d.keys, del)
End FunctionJUnique函数的代码比较简洁但计算速度较CUnique函数慢一些大家可以根据具体需要选择使用。
