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

将多个单元格的内容用指定的分隔符合并是一个通用的需求。

以下提供了一个在vba中编写的通用的用任意分隔符合并单元格内容的自定义函数：

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

其中参数oRng可以是excel单元格区域，也可以是excel数组， sDelimiter参数为指定的分隔符，如果没有指定则以空格分隔。