代码:
Function XX(Rng As String Optional Seperator As String) '定义函数参数区域址文型字符串参数二选参数类型文型连接间隔字符串
Dim RA As Range R As Range Str
On Error GoTo Skip '设置出错跳转
ApplicationVolatile '设置易失性函数
If IsMissing(Seperator) Then Seperator '果分隔符未输入话置空值
Str '初始化结果字符串
For Each RA In ApplicationCallerParentRange(Rng)Areas '循环输入址区域
For Each R In RACells ’循环区域中单元格
If RAddress Range(Rng)(1)Address Then '果整区域中第单元格单元格值赋值变量
Str RValue
Else '果第单元格单元格值分隔符分隔串接变量面
Str Str & Seperator & RValue
End If
Next R
Next RA
XX Str '返回结果字符串
Exit Function '正常退出函数
Skip '出错时跳转
XX Error '返回出错字符
End Function
法:
XX(单元格区域1单元格区域2 单元格区域N[ 分隔符])
单元格区域址双引号括起单元格区域间逗号分隔分隔符选写时默认空字符
举例1:(指定区域容串接成串)
(a1c2h2n15p1p8)
举例2:(指定区域容分隔串接成串
(a1c2h2n15p1p8)
文香网httpwwwxiangdangnet
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档