求助,分享 仿写函数 TEXJON 的连接函数,参数数量不确定怎么修改代码

18262162108

自己在网上看视频及自己根据自己的工作需要,平常需要将很多的内容用特定的分隔符 连接起来,就写了一下的代码



Function lianjie(rng As Range, Optional fg = ",")
    '连接函数,参数1:rng单元格,参数2: fg=",",用Optional 指定默认参数
    Dim r As Range
    For Each r In rng
        If r = "" Then
        Else
            lianjie = lianjie & fg & Trim(r)
        End If
    Next
    lianjie = Mid(lianjie, Len(fg) + 1)
End Function

在此也分享给需要的朋友
使用中发现,此代码函数是能用于连续的区域的内容连接起来,不连续的区域不适用,
因此想求助高手,将此代码帮忙修改一下,可以像求和函数 SUM 一样,参数不确定,可以是一个一个的,也可以是连续的区域,也可以是一个一个加连续区域的参数,都可以将内容用指定的分隔符连接起来

18262162108

需要的朋友可以拿走使用,现在的也可以解决一部分问题

zpy2

ParamArray

你搜索一下这个 VBA的用法，可能会有启发