Question

麻烦哪位Excel大神可以帮我看一下，万分感谢！

这是某公司的生产计划，我要通过函数找到实际生产时间，后面第一行的2月22日~2月29日的日期就是，日期下面分散的几百数量就是实际的排产。比如查找物料"A",它是属于一对多查找的，查找最近生产日期。用函数解决。





Answer 1

在B16中输入或复制粘贴下列公式

=MAX(IF((A3:A13=A16)*(E3:O13>0),E2:O2))

按三键CTRL+SHIFT+ENTER结束公式输入

结果设置为短日期格式。

结束日期，最晚日期 =MAX(IF((A3:A13="A")*(E3:O13>0),E2:O2))

开始日期，最早日期 =MIN(IF((A3:A13="A")*(E3:O13>0),E2:O2))

这两个都是数组公式

按三键CTRL+SHIFT+ENTER结束公式输入

追问

您好！查找的A物料对应有好几个，要找的日期是最近的那个日期。谢谢！

追答

用第一个公式试一下。

追问

您好！我复制您的公式结果都是0，两个都是，请问怎么回事呢？

追答

按三键CTRL+SHIFT+ENTER结束公式输入

追问

两个公式都试了，，三键结束，结果还是0

Answer 2

D3输入 

=TEXT(INDEX($A$2:$O$2,LOOKUP(1,0/(E3:O3<>""),COLUMN(E:O))),"m月d日")

公式下拉

Answer 3

假设如上图，日期所在行号为 2， 数据区域为F3:K7，则实际生产日期列的公式为：

以物料A为例：=INDIRECT(ADDRESS(2, MATCH(MAX(F3:K3),F3:K3,0)+5))

其中Address函数的第一个参数是日期所在的第2行，Match函数最后一个参数+5是因为有效数据区域F:K的前面还有5列。

fan4di 的方法比我的好，简洁明了！

追问

您好！查找的A物料对应有好几个，要找的日期是最近的那个日期。谢谢！

追答

我是否可以这么理解，表格中的“实际生产时间”那一列需要填的是当次生产时间，之前的公式是没问题的。而左下角的哪个单元格才是你需要找到最近的那个日期。

这个用数组公式有点复杂了，MAXIFS函数就可以，在之前公式填好E列的前提下，查询A物料最近生产日期

=MAXIFS($E$3:$E$11, $B$3:$B$11, B14)

其中 E列为之前算出的实际生产日期列，B列为第一列物料名称。

对了，记住把相关单元格格式设置为短日期格式，否则看着是一个数字。

我是否可以这么理解，表格中“实际生产日期”列是指当此生产的日期，这个之前公式就没有问题，而左下角的那个单元格才是你所说到最近生产日期。
这个用数组公式有点复杂，操作起来也麻烦，可以用MAXIFS。用之前的公式填好 E 列“实际生产日期”列的前提下，查询A物料最新生产日期：
=MAXIFS(E3:E7, B3:B7, "A")
其中 E3:E7 为“实际生产日期”列，B3:B7 为 第一列“物料名称”。
另外，记得将这些单元格格式设置为日期格式，否则看到的是一个数字。

我是否可以这么理解，表格中“实际生产日期”列指的是当次生产的日期，这个之前的公式就没有问题，而左下角的那个单元格才是你所说的最近生产日期。
这个用数组公式有点复制，操作也麻烦，可以用MAXIFS公式，用之前公式填好E列的前提下，查询A物料最近生产日期：
=MAXIFS(E3:E7, B3:B7, B14)
其中 E3:E7 为之前填充好的“实际生产日期”列， B3:B7 为“物料名称”列。
另外，记得将相关单元格设置为日期格式，否则看到的是一个数字。

我是否可以这么理解，表格中“实际生产日期”列指的是当次生产的日期，这个之前的公式就没有问题，而左下角的那个单元格才是你所说的最近生产日期。
这个用数组公式有点复制，操作也麻烦，可以用MAXIFS公式，用之前公式填好E列的前提下，查询A物料最近生产日期：
=MAXIFS(E3:E7, B3:B7, B14)
其中 E3:E7 为之前填充好的“实际生产日期”列， B3:B7 为“物料名称”列。
另外，记得将相关单元格设置为日期格式，否则看到的是一个数字。
PS: 百度知道什么SB设定，提交回答后修改，修改完再提交就没了，自动给删了，害我重复打了好几次字。

Answer 4

用VBA
Sub 实际生产()
ARR = Range("A2", [A2].End(xlDown))
ARR1 = Range("D2", [D1].End(xlToRight)(UBound(ARR, 1) + 1, 1))
Dim I%, N%, ARR2(), M%
For I = 1 To UBound(ARR, 1)
For N = 1 To UBound(ARR1, 2)
If ARR1(I, N) <> "" Then
M = M + 1
ReDim Preserve ARR2(1 To M)
ARR2(M) = Array(ARR(I, 1), ARR1(I, N))
End If
Next
Next
Range("M2").Resize(2, M) = Application.Transpose(ARR2)
End Sub

追问

谢谢！不过现在还不会用vba……

谢谢！不过现在还不会用vba……

Answer 5

笨方法，可以对数据列求和然后筛选和不为0的列。