用VBA如何实现下列连接效果

xiao1315274

A	B	C	D	用&生成的结果	需要的结果
1	2	3	4	1/2/3/4	1/2/3/4
1		4		1//4/	1/4
1	2			1/2//	1/2

求助，如何用VBA代码实现“需要的结果”一栏，而不是“用&生成的结果”一栏，即遇空值自动跳过。

hwc2ycy

看错了，是要生成字符串。
空格的话，你用代码是可以路过的嘛。

1032446692

自定义函数

xdd_sky

。。。。。。。都用代码了  直接加个if判断一下不就好了。。

hwc2ycy

用JOIN处理，然后再做\\的处理。

hwc2ycy

1. Function combine(rg) As String
   
2.     If TypeName(rg) <> "Range" Then Exit Function
   
3.     Dim r As Range
   
4.     For Each r In rg
   
5.         If Len(r.Value) > 0 Then combine = combine & r.Value & ""
   
6.     Next
   
7.     If Len(combine) > 1 Then combine = Left(combine, Len(combine) - 1)
   
8. End Function

复制代码

1032446692

这个参数可以更多，参数形式也可以更多