Question

EXCEL中将满足相同条件的单元格 文本进行合并

Answer 1

1、首先插入用户模块：在EXCEL窗口中按ALT+F11组合键，调出VBA窗口。

2、在VBA窗口中按上面菜单栏中的“插入－模块”，就会在下面出现一个空白的模块窗口，把代码复制粘贴到这个窗口中就行了。

3、输入代码：

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 = t

End Function

4、回到EXCEL窗口，在D1单元格中输入公式 =abc($A$1:$A$9,$B$1:$B$9,A1)

5、按回车键后，马上显示出结果 30 43 42。