找到哪天送过苹果

app240913 · 发表于 2024-9-18 06:19

找到哪天送过苹果

找到苹果有数字的记录并返回对应日期和备注单元格的内容苹果不是只有一行是很多很多行

沈默00 · 发表于 2024-9-18 07:29

=TEXTJOIN(";",,TOROW(IF((A3:A8=A4)*(B3:H8>0),TEXT(B2:H2,"e/m/d"),x),3))

说明的不清楚，重复的要不要合并？备注什么内容？
你模拟一下结果

沈默00 · 发表于 2024-9-18 07:33

还是需要这样子？？？
=TEXTJOIN("、",,TOROW(IF((A3:A8=A4)*(B3:H8>0),TEXT(B2:H2,"e/m/d")&"-"&B3:H8&"只",x),3))

zzyglgl · 发表于 2024-9-18 08:14

学到了，谢谢！

hxj119 · 发表于 2024-9-18 10:17

=TEXTJOIN(",",,IF(BYCOL((A3:A8=A4)*(B3:H8<>""),SUM)>0,B1:H1&TEXT(B2:H2,"e/m/d"),""))

复制代码

你是那块小饼干 · 发表于 2024-9-18 10:21

=LET(_T,FILTER($B$3:$H$8,$A$3:$A$8="苹果",""),FILTER($B$2:$H$2,MMULT(SEQUENCE(,ROWS(_T),1,0),N(_T))>0,""))

复制代码

hxj119 · 发表于 2024-9-18 10:50

=FILTER(B1:H2,BYCOL((A3:A8=A4)*(B3:H8<>""),SUM))

复制代码

高冷cool · 发表于 2024-9-18 16:35

Sub drfd()
Set a = ActiveSheet
Set Rng = Application.InputBox("请选择输出位置", Type:=8)
row_n = Rng.Row
x = a.UsedRange.Rows.Count
y = a.UsedRange.Columns.Count
For i = 2 To y
      For j = 3 To x
         If a.Cells(j, i) > 0 And a.Cells(j, 1) = "苹果" Then
            a.Cells(row_n, i) = a.Cells(1, i)
            a.Cells(row_n + 1, i) = Format(a.Cells(2, i), "yyyy-mm-dd")
         End If
      Next
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 找到哪天送过苹果

评分