Excel Vba 单元格内容拼接函数，类似PHONETIC，但是添加分隔符

最新推荐文章于 2023-10-15 14:08:56 发布

webmastor

最新推荐文章于 2023-10-15 14:08:56 发布

阅读量2.1k

点赞数

分类专栏： Excel Vba

本文链接：https://blog.csdn.net/webmastor/article/details/117561609

版权

Excel Vba 专栏收录该内容

11 篇文章 2 订阅

订阅专栏

这个VBA函数ConnectString用于将指定区域的数据连接成一个字符串，每个单元格间由分隔符分隔。它接受Zone参数作为要处理的范围，Splitor参数定义分隔符，默认为分号。通过遍历区域的每一列和每一行，将非空单元格内容拼接，从而方便进行数据整合和处理。

摘要由CSDN通过智能技术生成

参数：

- Code ：查询的内容
1. Zone ：查询的区域
2. ColumnIndex ：指定返回列的序号
3. Splitor ：行分隔符

'连接字符串，类似PHONETIC，但是可以添加分隔符
Function ConnectString(Zone As range, Splitor As String)
    Dim columnCount As Long, rowsCount As Long
    Dim resultStr As String
    Dim i As Integer, j As Integer
    columnCount = Zone.Columns.Count
    rowsCount = Zone.Rows.Count
    '默认分隔符为 ;
    If Splitor = "" Then
        Splitor = ";"
    End If
    For i = 1 To columnCount Step 1
        For j = 1 To rowsCount Step 1
            If Zone.Cells(j, i) <> "" Then
                '第一个匹配项，不添加分隔符
                If resultStr <> "" Then
                    resultStr = resultStr & Splitor
                End If

                resultStr = resultStr & Zone.Cells(j, i)
            End If
        Next
    Next
    ConnectString = resultStr
End Function