合并单元格

最新推荐文章于 2021-04-23 23:18:54 发布

原创最新推荐文章于 2021-04-23 23:18:54 发布 · 414 阅读

0 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个VBA自定义函数CombineRange，该函数接受一个工作表范围WorkRng及一个可选的分隔符Sign作为参数，并返回一个字符串，该字符串由WorkRng范围内所有非空单元格的内容按指定分隔符连接而成。

Option Explicit
Function CombineRange(WorkRng As Range, Optional Sign As String = ";") As String
    Dim rng As Range
    Dim outStr As String
    For Each rng In WorkRng
        If rng.Text <> "" Then
            outStr = outStr & rng.Text & Sign
        End If
    Next
    CombineRange = Left(outStr, Len(outStr) - len(Sign))
End Function