聊聊Excel中的合并同类项（四）

看见星光

欢迎关注EH微信号：IEXCELHOME
示例文件： 示例文件.rar (19.88 KB, 下载次数: 257)

2015-7-28 11:47 上传

点击文件名下载附件

看见星光

先留个房间{:soso_e127:}代码放不出

1. Public Function ConTxt(ParamArray args() As Variant) As Variant
   
2. Dim tmptext As Variant, i As Variant, cellv As Variant
   
3. Dim cell As Range
   
4. tmptext = ""
   
5. For i = 0 To UBound(args)
   
6.     If Not IsMissing(args(i)) Then
   
7.         Select Case TypeName(args(i))
   
8.             Case "Range"
   
9.                 For Each cell In args(i)
   
10.                     tmptext = tmptext & cell
    
11.                 Next cell
    
12.             Case "Variant()"
    
13.                 For Each cellv In args(i)
    
14.                     tmptext = tmptext & cellv
    
15.                 Next cellv
    
16.             Case Else
    
17.                 tmptext = tmptext & args(i)
    
18.         End Select
    
19.     End If
    
20. Next i
    
21. ConTxt = tmptext
    
22. End Function
    

复制代码

龙城飞将III

{:soso_e142:}{:soso_e142:}{:soso_e142:}这个自定义函数写的太好了

大尸兄

CONTXT这个代码很经典,早已私藏了{:soso_e113:}

大尸兄

VB代码:
=CONTXT(数组)
-----------------------------------------------------------------
Function ConTxt(ParamArray args() As Variant) As Variant
Dim tmptext As Variant, i As Variant, cellv As Variant
Dim cell As Range
tmptext = ""

For i = 0 To UBound(args)
    If Not IsMissing(args(i)) Then
        Select Case TypeName(args(i))
            Case "Range"
                For Each cell In args(i)
                    tmptext = tmptext & cell
                Next cell
            Case "Variant()"
                For Each cellv In args(i)
                    tmptext = tmptext & cellv
                Next cellv
            Case Else
                tmptext = tmptext & args(i)
        End Select
    End If
Next i

ConTxt = tmptext
End Function
----------------------------------------------------------------

坏也是一种态度

看见星光 发表于 2015-7-28 11:50
先留个房间代码放不出

星光老师找了你好久，帮忙看下这个帖子，看看代码的问题该如何修改，还需要增加两个功能在这个帖子里http://club.excelhome.net/thread-1222517-1-1.html[/url]，谢谢大侠了

tongxing001213

这个公式 太强大了。谢谢！
应该建议office加入公式中。

yjh_512

謝謝分享！

yyzh_god_2013

不好用
contxt(D2:AC2&";")=#VALUE!
contxt(D2:AC2,";")=124293646607998118149175199226252276302329353379406538571602634667698;

psb24

看见星光 发表于 2015-7-28 11:50
先留个房间代码放不出

星光老师，我复制以上的代码，运行出来是#value，是什么原因啊！