问题已解决
如何用一个条件匹配出多个结果,sheet1表和sheet2表有相同唯一条件,如果匹配出sheet2表的多个结果
温馨提示:如果以上题目与您遇到的情况不符,可直接提问,随时问随时答
速问速答您好,麻烦用图片举例
2022 01/14 11:31
84785023
2022 01/14 11:35
例如这样,我要在a表显示出匹配的对应所有订单号
84785023
2022 01/14 11:35
数据太大了一个表都已经用十几万行,最好不用辅助列的方法
小林老师
2022 01/14 11:38
您好,您的需求用power query很容易解决
84785023
2022 01/14 11:40
要怎么操作呢
84785023
2022 01/14 11:41
我不会数据库呀
小林老师
2022 01/14 11:41
您好,这个需要写代码,在excel里操作,不是wps
84785023
2022 01/14 11:42
用vba吗,还是宏
84785023
2022 01/14 11:42
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
84785023
2022 01/14 11:42
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
小林老师
2022 01/14 11:43
您好,都不是,是表格的新功能
84785023
2022 01/14 11:43
当时用过这段代码,但是特别卡
84785023
2022 01/14 11:44
好吧,那老师您有教程吗
小林老师
2022 01/14 11:49
您好,这个是vba没使用过
小林老师
2022 01/14 11:49
您好,没有相关教程