|
我自定义的TEXTJOIN函数,与内置的用法完全一致!
- Public Function TEXTJOIN(Optional ByVal Delimiter As String = "", Optional ByVal ignore_empty As Boolean = True, Optional ByVal args As Variant) As String 'Variant '联结文本
- Dim tmptext As Variant, Rng As Variant, cel As Variant
- tmptext = ""
- For Each Rng In args
- If IsArray(Rng) Then
- For Each cel In Rng
- If Len(cel) Or Not ignore_empty Then tmptext = tmptext & Delimiter & cel
- Next cel
- Else
- If Len(Rng) Or Not ignore_empty Then tmptext = tmptext & Delimiter & Rng
- End If
- Next
- TEXTJOIN = Mid(tmptext, Len(Delimiter) + 1)
- End Function
复制代码 |
评分
-
5
查看全部评分
-
|