自定义函数拓展：逗号分隔的“Join”函数应用指南

JoinText()函数介绍

    JoinText()函数是一个自定义函数，它可以将一个范围内的单元格内容组合成一个逗号分隔的字符串。其语法如下：

    ```
    JoinText(range)
    ```

    其中，range是要组合的单元格范围。

    ## 使用方法

    要使用JoinText()函数，请按照以下步骤操作：

    1. 在VBA编辑器中打开要使用JoinText()函数的工作簿。
    2. 在“插入”选项卡的“代码”组中，单击“模块”按钮。
    3. 在模块代码窗口中，输入以下代码：

    ```
    Function JoinText(range)
        Dim c As Range
        Dim result As String

        For Each c In range
            result = result & c.Value & ","
        Next c

        ' 去除最后一个逗号
        result = Left(result, Len(result) - 1)

        JoinText = result
    End Function
    ```

    4. 保存模块。

    ## 示例

    以下是一个使用JoinText()函数的示例：

    ```
    Sub JoinTextExample()
        Dim range As Range
        Dim result As String

        ' 定义要组合的单元格范围
        Set range = Range("A2:B8")

        ' 调用JoinText()函数将单元格内容组合成一个逗号分隔的字符串
        result = JoinText(range)

        ' 将结果显示在单元格C2中
        Range("C2").Value = result
    End Sub
    ```

    运行此宏，单元格C2中将显示如下结果：

    ```
    苹果,香蕉,橙子,梨子,桃子,葡萄,芒果,菠萝,火龙果
    ```

    ## 结语

    JoinText()函数是一个非常有用的自定义函数，它可以轻松地将范围内的单元格内容组合成一个逗号分隔的字符串。这在数据处理、报告生成等场景中非常有用。希望本文能够帮助您理解和使用JoinText()函数。