多个结果合并到一个单元格 【 微积分+1】

看见星光

如何将相同条件的多个结果合并在一个单元格内。
第一个公式：=IF(A2=A1,C1&","&B2,B2)
第二个公式：=LOOKUP(1,0/(D2=$A$1:$A$15),$C$1:$C$15)
练手附件： LOOKUP之合并数据.rar (4.05 KB, 下载次数: 974)

2014-8-12 10:43 上传

点击文件名下载附件

微博发布地址：http://weibo.com/1341556070/BiXIKjmRP

GIF：






该贴已经同步到 看见星光的微博

aoe1981

这个得试试，公式闪的太快，没有反应过来……

aoe1981

公式一：=IF(A2=A1,C1&"，"&B2,B2)
公式二：=LOOKUP(1,0/($A$2:$A$15=D2),$C$2:$C$15)
A列必须将同一班的放在一起，否则会出错……
换句话说，如果第一列的各班没有排序整理在一起的话，可有解决办法？

aoe1981

　　问题具体如下图：
　　

看见星光

aoe1981 发表于 2014-8-14 22:41
　　问题具体如下图：
　　

这个方式是要求班级先排序的。如果班级不排序，合并名字，简单的方法还是用自定义函数contxt啦。

aoe1981

看见星光 发表于 2014-8-14 22:43
这个方式是要求班级先排序的。如果班级不排序，合并名字，简单的方法还是用自定义函数contxt啦。

这个“自定义函数contxt”没有听说过，是Excel类似加载项里的，还是谁谁谁编写的？

看见星光

aoe1981 发表于 2014-8-14 22:55
这个“自定义函数contxt”没有听说过，是Excel类似加载项里的，还是谁谁谁编写的？

是常用的几个自定义函数之一，自定义函数啊，哥，你这月VB拿了4点技术分啊！！ LOOKUP之合并数据.rar (9.05 KB, 下载次数: 327)

2014-8-15 09:04 上传

点击文件名下载附件

aoe1981

看见星光 发表于 2014-8-15 09:05
是常用的几个自定义函数之一，自定义函数啊，哥，你这月VB拿了4点技术分啊！！

我这4点技术分啊，估计有这几个原因：
1.持续钻在了一点；
2.花了很长时间；
3.受到了睿智的香川和法师的帮助，碰到了一个感兴趣的好问题，并得到了适当的附件；
4.版主大人可怜我的坚持与所花的时间，并且给予大度的鼓励！！！
其实，我的VBA知识还是很不全面的，一些基础性的视频我也是亟须看看学习的……
多谢您的指点！

aoe1981

　　不好意思，帖一下您附件中的自定义函数的代码，擅自做了注，因为还不是完全了解，看了这段代码，才发觉，我以前写的所谓“自定义函数”都是幼儿园水平的……

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
    

复制代码

aoe1981

　　以及您在附件中的引用方法：

1. =contxt(IF(D2=$A$2:$A$15,$B$2:$B$15&",",""))

复制代码

　　注意到，这个自定义函数不是易失性函数，按F9键刷新不会引发自动重算……