VBA自定义的函数，可以做到 对函数数组结果进行连接吗？

因为excel自带函数的局限导致连接文本很困难。

zipall（row(A1:A3)) =123。这个是结果。其性质等同于 zipall = zipall & c.Value
即都是要经过计算的。猫吧的是用for each 循环来完成，
自定义函数了解不多。
很奇怪的是如果用
b1="sum(row(a1:a3))"
b2="row(a1:a3)"
funtion zipall(byval b as string)
Application.Evaluate(b1) 可以得到结果，6
如果
zipall=join（Application.Evaluate(b2)) ,返回#VALUE
不是很明白怎么回事情。还是需要多修练

可以的，你改改就好了.
Function zipall(b As Variant)
For Each c In b
If IsNumeric(c) Then
zipall = zipall & LTrim(Str(c))
Else
zipall = zipall & c
End If
Next
End Function

弱势围观不懂啊

=zipall(TEXT(ROW(A1:A5),"00"))
结果12345
我输入你的之后@RuiWangChina ，理论上变为0102030405这样的？

@青水蛙鸣，for i = lbound(b)to ubound(b)　类似的，不过这样的话b如果是range就不工作了

@ RuiWangChina
如果在窗体中，可以用activecontrol 表示当前获得焦点的控件
那在sheet中的acitveX控件该如何表述？
百度谷哥都找过，但是好像没找到。。。

@RuiWangChina

楼中楼真是坑爹，后面的又看不着了、、

@青水蛙鸣, @雪儿浪漫想, @zipall, @温柔小兔
昨天说着说着，今天我工作就正好需要些这么个函数，网上查询了下，以下是最简单的方法了。可以简化成一个函数不过先发上来吧，谁有兴趣整理下。
对一行数据
Function ConnectRow(ByVal rRange As Range, Optional sDelimiter As String = " ") As String
ConnectRow = Join(Application.Transpose(Application.Transpose(rRange.Value)), sDelimiter)
End Function
对一列数据
Function ConnectColumn(ByVal rRange As Range, Optional sDelimiter As String = " ") As String
ConnectRow = Join(Application.Transpose(rRange.Value), sDelimiter)
End Function