Question

如何用excel的VBA实现单元格内容的合并？

比如A1：A4的单元格内容是
a
1
b
23
我想在A5中输入一个公式，然后得到内容“a1b23”，
请问这个公式用VBA如何实现这个函数？
假设实现后的函数是fun，
则在A5中输入fun(A1:A4)就可以实现文本合并,这个函数如何写?

Answer 1

软件版本：Office2007

方法如下：

1.利用VBA实现A列和B列同一行内单元格内容合并：

2.Alt+F11，输入代码如下：

3.F5执行代码并返回Excel，得到结果如下：

Answer 2

function fun(byval rg as range) as string
    dim c as range
    for each c in rg
        fun=fun & c.value
    next
end function