根据条件和日期范围判断提取数据，现在函数运行很卡

shenzhenyang

准提部林 发表于 2021-5-7 11:40
四個條件,取得最近日期單價:

麻烦你在，我用你这个代码，最近发现我价格单元格填写是0，不是识别为0，而是识别到最后一个日期大于0的单价。


我想实现的就是，这个日期单元格填写的是0，也跟着判断这个单价是0的单价。

麻烦老师，谢谢。

准提部林

shenzhenyang 发表于 2024-7-2 15:38
麻烦你在，我用你这个代码，最近发现我价格单元格填写是0，不是识别为0，而是识别到最后一个日期大 ...

    For j = 8 To UBound(Arr, 2)
        If IsDate(Arr(2, j)) = False Or Arr(2, j) > dd Then Exit For
        If Arr(R, j) <> "" Then V = Arr(R, j)
    Next j
    If V <> "" Then Brr(i - 2, 1) = V:   V = ""

shenzhenyang

准提部林 发表于 2024-7-2 16:53
For j = 8 To UBound(Arr, 2)
        If IsDate(Arr(2, j)) = False Or Arr(2, j) > dd Then Exit  ...

谢谢老师，感谢

sdytsxd991122