推荐指数:☆☆☆☆☆
问题:B列有多个相同的内容,而对应的同一行A列中的值不相同,需要把这些不同的A列值组合到一个单元格中,如下图。
分析:可以借助自定义函数来实现。
实现:
1、在当前EXCEL窗口中,按ALT+F11组合键,调出VBA窗口。在打开的VBA窗口中,按上面菜单栏中的“插入-模块”,就会在下面出现一个空白的模块窗口。
2、将编写的代码复制粘贴到这个窗口,然后保存。
Function abc(a As Range, b As Range, c As String)
Dim t As String
'如果a与b的区域大小不同,就显示“错误”
If a.Rows.Count <> b.Rows.Count Then abc = "错误": Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值,就把同一行中的b的内容提取出来,存入变量t中。
If a.Cells(i, 1) = c Then t = t & "," & b.Cells(i, 1)
Next
'将变量的值赋给自定义函数
abc = Mid(t, 2)
End Function
说明:这个自定义函数有三个参数:参数a是要查找的区域;参数b是提取数据的区域;参数c是要查找的值。
3、回到EXCEL窗口,在C3单元格中输入公式
=abc($B$3:$B$9,$A$3:$A$9,B3)

联系方式:
购买专线:13522655010(微信同号)
售前QQ:1084166067
购买QQ: 473625929
售后QQ:1019224211

