Excel中如何匹配得到多项数据？
发布网友
发布时间：2022-04-20 22:30
共1个回答
热心网友
时间：2024-01-26 06:07
1、电脑打开Excel表格。
2、打开Excel表格后，按Alt+F11，调出VBA窗口，然后点击插入。
3、点击插入后，选中插入模块。
4、插入模块后，复制代码
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
复制代码粘贴。
5、粘贴代码后，返回表格中输入公式=abc($A$1:$A$9,$B$1:$B$9,A1)。
6、输入公式后，回车就可以匹配多个结果了。
