UC知道Excel，请求编一个字符连接的VBA
来源：百度知道 编辑：UC知道 时间：2024/05/28 11:03:13
经常要用将某个单元格区域的内容连接成一个字符串，用CONCATENATE函数只能一个一个单元格地输入，非常麻烦。
能不能用VBA编一个自定义函数，实现像SUM(A1:A10)这样的效果。
顾斌_张燕，谢谢你的回答，不过，根据我的检测
Dim rngEachCell As Range
这一代码删除后，并不影响VBA的运行，不知是否如此，麻烦你再给解释一下。
能不能用VBA编一个自定义函数，实现像SUM(A1:A10)这样的效果。
顾斌_张燕，谢谢你的回答，不过，根据我的检测
Dim rngEachCell As Range
这一代码删除后，并不影响VBA的运行，不知是否如此，麻烦你再给解释一下。
方法一:
在模块中输入下列代码, 然后在单元格中引用之:
'-----------------------------------------------------
Public Function SumStr(rngArea As Range) As String
' 示指定区域 rngArea 的字符串合并值
' 单元格中类似这样引用: =SumStr(A1:B5)
Dim rngEachCell As Range
SumStr = ""
For Each rngEachCell In rngArea
SumStr = SumStr & rngEachCell.Text
Next
End Function
'-----------------------------------------------------