欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

Excel——VBA

程序员文章站 2022-05-14 22:58:24
...

Function 文本(rng As Range) As String
Dim str As String
    For Each c In rng
        str = str & Chr(10) & c.Value
            Next
        文本 = Right(str, Len(str) - 1)
End Function