join | ExcelOffice【微信公众号：水星Excel】

Function JoinText(ByVal oRng As Variant, Optional sDelimiter As String = " ")
    Dim arr()
    For Each oCell In oRng
        If Len(oCell) Then
            ReDim Preserve arr(K)
            arr(K) = oCell
            K = K + 1
        End If
    Next
    JoinText = Join(arr, sDelimiter)
End Function

1

2

3

4

5

6

7

8

9

10

11

Function JoinText(ByVal oRng As Variant, Optional sDelimiter As String = " ")

Dim arr()

For Each oCell In oRng

If Len(oCell) Then

ReDim Preserve arr(K)

arr(K) = oCell

K = K + 1

End If

End Function

[……]

阅读全文>>>

如何用vba将形成ab+c+de的数学表达式展开?

如何在vba中编写用任意分隔符合并单元格内容的自定义函数？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号

如何在python中将列表元素连接合并成按照分隔符分隔的字符串？

如何用vba将形成a*b+c+d*e的数学表达式展开?