找回密码
 立即注册
搜索

多对多查询

8
回复
1112
查看
[复制链接]

1

主题

5

帖子

2

幻币

初入江湖

Rank: 1

积分
5
2021-9-28 08:42:00 显示全部楼层 |阅读模式
拜请大神查看附件,不吝赐教!
多对多查询.rar (69.61 KB, 下载次数: 195)
PPT学习论坛
回复

使用道具 举报

0

主题

8

帖子

-2

幻币

初入江湖

Rank: 1

积分
4
2021-10-9 07:04:02 显示全部楼层
G列是1日,手动筛选也是3条,没毛病。又要月又要日就是双条件:=INDEX(面!D:D,SMALL(IF((面!$F:$F=$E$2)*(面!$G:$G=Sheet1!$G$2),ROW(面!$G:$G),2^10),ROW(A1)))&""
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

6

帖子

3

幻币

初入江湖

Rank: 1

积分
12
2021-11-1 17:34:18 显示全部楼层
是你的附件有问题还是我电脑有问题?打开你的附件EXCEL就卡死
你在公式IF后面再多加一个条件试试呗!
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

9

帖子

1

幻币

初入江湖

Rank: 1

积分
11
2021-11-1 21:49:21 显示全部楼层
=INDEX(面!D:D,SMALL(IF(面!$G:$G=Sheet1!$G$2,ROW(面!$G:$G),2^10),ROW(A1)))&"",这个只限制了一个条件G2,8月1日,9月1日共有三条记录。所以结果没有错。
你的需求需要再加一个条件。
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

7

帖子

2

幻币

初入江湖

Rank: 1

积分
11
2021-11-7 06:31:44 显示全部楼层
=IFERROR(INDEX(面!$D$2:$D$46,SMALL(IF($E$2&$G$2=面!$F$2:$F$46&面!$G$2:$G$46,ROW($1:$45),4^8),ROW(A1))),"") 三键结束,其他的自己可以根据这个设置下
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

8

帖子

-1

幻币

东方不败

积分
-9
2021-11-15 04:26:41 显示全部楼层
改成这样试试,多加一个条件。
=INDEX(面!D:D,SMALL(IF((面!$F$1:$F200=$E$2)*(面!$G$1:$G200=$G$2),ROW(面!$1:200),2^10),ROW(A1)))&""
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

12

帖子

-2

幻币

初入江湖

Rank: 1

积分
5
2021-11-30 19:23:33 显示全部楼层
感谢大神们!
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

11

帖子

-1

幻币

初入江湖

Rank: 1

积分
9
2021-12-7 04:54:12 显示全部楼层
=INDEX(面!D:D,SMALL(IF((面!$F$2:$F$46=$E$2)*(面!$G$2:$G$46=$G$2)*(面!$D$2:$D$46="面条"),ROW($2:$46),4^8),ROW(A1)))&""
如果是不想要油,只想要面,还要加一个条件
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

12

帖子

3

幻币

初入江湖

Rank: 1

积分
15
2021-12-18 06:29:46 显示全部楼层
Sub lll()
  Dim rng As Range
  Dim i As Integer, k As Integer
  
  i = Sheets("Ãæ").Cells(Rows.Count, 1).End(xlUp).Row
  k = 0
  For Each rng In Sheets("Ãæ").Range("f2:f" & i)
  If rng & rng.Offset(0, 1) = Sheets("sheet1").Range("e2") & Sheets("sheet1").Range("g2") Then
    k = k + 1
    With Sheets("sheet1")
      .Cells(k + 3, 2) = rng.Offset(0, -2)
      .Cells(k + 3, 3) = rng.Offset(0, 2)
      .Cells(k + 3, 4) = rng.Offset(0, 3)
      .Cells(k + 3, 5) = rng.Offset(0, 4)
      .Cells(k + 3, 6) = rng.Offset(0, 5)
   
    End With
  End If
  Next
End Sub
多对多查询.zip (60.56 KB, 下载次数: 125)
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册