:字符串连接自定义函数
凑个热闹,代码粗陋不值一晒:
Function CTC(T_rng As Range)
Each rng In T_rng
If rng.Text <> "" Then
CTC = CTC & rng.Text
End If
Next
Application.Volatile
End Function
发布: 2009-2-04 11:20 作者: 网络转载 查看: 3545次 共有0条评论
:字符串连接自定义函数
凑个热闹,代码粗陋不值一晒:
Function CTC(T_rng As Range)
Each rng In T_rng
If rng.Text <> "" Then
CTC = CTC & rng.Text
End If
Next
Application.Volatile
End Function