求一个符合条件的日期

saoxu · 发表于 2018-7-27 11:54

想求一个符合条件的配方结束使用日期，函数板块暂时没有好的办法，想求VBA帮忙

liulang0808 · 发表于 2018-7-27 13:35

建议楼主结合附件数据，举例说明每个情况吧
现在的附件看不大明白

魂断蓝桥 · 发表于 2018-7-27 14:57

本帖最后由魂断蓝桥于 2018-7-27 15:03 编辑

第一个为什么不是

猪饲料

玉米ffss

250

2018-6-19

玉米后面的ffss是手误吗，如果是手误为什么第一条的截止日期不是 6-18？

魂断蓝桥 · 发表于 2018-7-27 15:29

楼主试一下吧。

Sub a()
Dim arr, i, j
[f2:f9999] = ""
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
For j = i + 1 To UBound(arr)
      If arr(i, 2) & arr(i, 3) = arr(j, 2) & arr(j, 3) Then
         arr(i, 6) = arr(j, 5) - 1
         Exit For
      End If
Next
      If arr(i, 6) = "" Then arr(i, 6) = #12/31/2018#
Next
[a1].Resize(UBound(arr), 6) = arr
End Sub

材料后面的多余英文字母需要先删除。

saoxu · 发表于 2018-7-27 22:17

不是手误,我总感觉我自己描述不清楚,把大家搞混了.我重新做来表,真是不好意思.

jiminyanyan · 发表于 2018-7-27 22:27

配方变化不会很多吧，换配方的时候做个台账不行么。。

saoxu · 发表于 2018-7-27 22:34

我现在就是手工换台账,每个产品的配方每个月有5次以上的变化.有几千行之多,有时有错,所以每个月想看有没有办法改变一下.

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

[求助] 求一个符合条件的日期