通过两周日期表过滤月末值

Question

我有一个与每两周一次的日期匹配的值表：

  

1/1/17 3123

     

15/1/17 3422

     

29/1/17 3645

     

12/2/17 3941

我希望在每个月末将值提取到新表中，如果不可用，则取当月中最后一个日期的值。

例如。

  

31/1/17 3645

关于如何做到这一点的任何想法？

Answer 1

您可以像这样使用MATCH功能。

Private Sub TestMatch()

    Dim Dt As Date

    Dt = CDate("1/5/16")
    Debug.Print WorksheetFunction.Match(CLng(Dt), Range("Dates"), 1)
End Sub

其中“日期”是按升序排序的日期列，Dt是您希望提取最后一天的月份之后的月份的第一天。