高级字符连接函数,可用于工作表及vba,可接受内存数组及各类型混合参数

cunfu2010

太厉害了！！！！学习

雨骤非船

这个函数有个小问题，如果我不需要用连接符，我在连接符参数位置输入一个空白符，像这样：
Contxt("",A1:B2)
得到的结果会把范围中第一个值的第一个字符忽略掉

百度不到去谷歌

雨骤非船 发表于 2017-8-2 19:33
这个函数有个小问题，如果我不需要用连接符，我在连接符参数位置输入一个空白符，像这样：
Contxt("",A1:B ...

这确实是一个bug 一般我自己使用的时候都不会是对单个单元格用 也没注意,要改就在参数里最后改一下 判断一下第一个字符不是连接符就不要mid(,2)了

雨骤非船

百度不到去谷歌 发表于 2017-8-3 01:27
这确实是一个bug 一般我自己使用的时候都不会是对单个单元格用 也没注意,要改就在参数里最后改一下 判断 ...

不是单个单元格的问题，因为有时候要合并的东西我不想要连接符，只想把数字完全合并起来，就会出问题，或者连接符有两个或以上的字符时也会有问题出现
我自己做的合并函数是在每次合并时多加一个判断，可能运算速度有所减慢，不过那样比较稳妥点

百度不到去谷歌

雨骤非船 发表于 2017-8-3 11:56
不是单个单元格的问题，因为有时候要合并的东西我不想要连接符，只想把数字完全合并起来，就会出问题，或 ...

改一下就行了呗 ConTxt = Mid(tmptext,len(Dilimitetr)+1)

雨骤非船

百度不到去谷歌 发表于 2017-8-3 13:08
改一下就行了呗 ConTxt = Mid(tmptext,len(Dilimitetr)+1)

嗯这样倒是都解决了！

li.hong

yzlsc 发表于 2017-5-4 23:19
谢谢，学习了。但楼主的代码没有考虑忽略逻辑值，以及合并日期型数据。试着修改了一下，请指教！

“Case "ge" 'Range单元格区域类型,直接遍历”，实际上合并处理“ge”与“()”是存在问题的，因为两者的遍历顺序是不一样的，“ge”是先列后行，而“()”是先行后列，应该在“()”先进行一次转置再遍历，才能得到正确的字符串连接顺序，楼主虽然是分开处理的，在“()”时也没有先进行转置。

jinhaitiao168

太厉害了！！！！学习

qlmgu

高水平分享和探讨！！！！ 我只能学习老师们的精神了。

arsong

给楼主点赞，为了自己方便，我以前也用笨方法写过一个连接二维数组某一行中指定的列的函数，见笑了
'arrSoc                数据源数组（二维）
'iRow                数据源数组需要取值的行
'arrCol                需要取值的列，需用一维数组引用，可使用Array
'delimiter        连接符
Public Function JoinItem(ByVal arrSoc As Variant, ByVal iRow As Long,  _
            ByVal arrCol As Variant, ByVal delimiter As String) As String
    Dim sJoin$, i&, arrSocLB%, arrSocUB%, arrColLB%, arrColUB%
    arrSocLB = LBound(arrSoc, 2)
    arrSocUB = UBound(arrSoc, 2)
    arrColLB = LBound(arrCol)
    arrColUB = UBound(arrCol)
    If arrColUB - arrColLB > arrSocUB - arrSocLB Then
        MsgBox("要连接的个数不能大于数据源数组单行的个数")
        End
    End If
    For i = arrColLB To arrColUB
        sJoin = sJoin & delimiter & arrSoc(iRow, arrCol(i))
    Next
    JoinItem = Mid(sJoin, 2, Len(sJoin))
End Function