计算多个日期范围中的独特日期

下面是一个可以帮助我预防偏头痛的方法吗？ :-)计算多个日期范围中的独特日期

我有一张表中的一列包含开始日期和另一个结束日期。我有第三列来计算开始日期和结束日期之间有多少天（添加1以获得正确的计数，因为开始日期等于结束日期需要计为一天，而不是零）。

然而，不同的行的时间段可以重叠，所以可具有介于（警告：英国日期格式DD/MM/YY）：

Start  End   Days 
22/01/17 26/01/17 5 
24/01/17 24/01/17 1

因为第24是在第一行中已经计数，我当我得到所有日子的总数时，不想再次数它。我怎样才能做到这一点？

在此先感谢！

Lucien。

来源

2017-05-09 Lucien Dol

长话短说 - 我想不出一个好的和明确的方式来做到这一点，只需用Excel。然而，VBA有一个好办法：

Option Explicit 

Public Sub TestMe() 

    Dim lngCounter   As Long 
    Dim dtStartDate   As Date 
    Dim dtEndDate   As Date 
    Dim collDates   As New Collection 

    dtStartDate = CDate("22.01.2015") 
    dtEndDate = CDate("25.01.2015") 

    For lngCounter = dtStartDate To dtEndDate 
     If Not Contains(collDates, lngCounter) Then 
      collDates.Add lngCounter 
     End If 
    Next lngCounter 

    dtStartDate = CDate("23.01.2015") 
    dtEndDate = CDate("28.01.2015") 

    For lngCounter = dtStartDate To dtEndDate 
     If Not Contains(collDates, lngCounter) Then 
      collDates.Add lngCounter 
     End If 
    Next lngCounter 

    For lngCounter = 1 To collDates.Count 
     Debug.Print CDate(collDates(lngCounter)) 
    Next lngCounter 

End Sub 

Public Function Contains(ByRef col As Collection, ByRef key As Variant) As Boolean 

    Dim lngCounter As Long 

    Contains = True 

    For lngCounter = 1 To col.Count 
     If col(lngCounter) = key Then Exit Function 
    Next lngCounter 

    Contains = False 

End Function

你给两次dtStartDate和dtEndDate和你之间的数字保存日期的集合collDates中，如果它们已经不存在。

来源

2017-05-09 09:44:55 Vityata

感谢。这是类似的解决方案的人在其他地方建议，我开始使用： '显式的选项功能UniqueDayCount（RSTART量程，雷德作为范围）只要昏暗的山坳作为收藏昏暗的vStart为Variant，鬻为Variant 暗淡我作为龙，J只要的vStart = RSTART 鬻=雷德上的错误继续下一步集山坳=新集合对于i = 1到UBound函数（的vStart）对于J =的vStart（I，1）为贩卖（I， 1） col.Add Item：= J，Key：= CStr（J） Next J Next I On Error转至0 UniqueDayCount = col.Count End Function ' –

您可以将代码放入pastebin.com吗？并给一个链接？ :) – Vityata

如果在列A中有开始日期，列B中的结束日期和列C中的结果日期差异，则可以在列D和E中使用以下两个数组公式计算双精度值（此解决方案不需要升序）。

请注意，这这些都是数组公式，您有按Ctrl +移确认他们 + 输入，而不是仅按输入 - 键。

列d：

=COUNT(IF(ISNUMBER(SEARCH(A2-1+(ROW(INDIRECT("A1:A"&C2))),E1)),"",A2-1+(ROW(INDIRECT("A1:A"&C2)))))

E列：

=TEXTJOIN(",",TRUE,IF(ISNUMBER(SEARCH(A2-1+(ROW(INDIRECT("A1:A"&C2))),E1)),"",A2-1+(ROW(INDIRECT("A1:A"&C2)))),E1)

您需要的Excel 2016，所以你可以达到预期的效果，因为textjoin（） - 函数是一个新的。

它是如何工作的：数组公式分裂所有起始日期和结束日期之间的日期为行和搜索它们作为连接字符串的一个整数，如果有比赛，该日期将被“空白”，其他不同的结果将与先前保存在不断增长的字符串中的不同结果连接起来。

来源

2017-05-09 12:46:17 robrados

非常聪明。我一直在思考相同的问题，但无法完成它的工作。这可以'隐形'完成吗？考虑到它的累积性，性能不会比UDF /宏慢吗？ –

如果要求每行和每列都总天数，那么你可以总是有一个单独的列中添加独特的天（假定起始日期是按日期顺序排列）

来源

2017-05-09 13:26:25 Jorvik77

不幸的是，订单不能保证，并且日期间有重叠和间隔。 –

另一种方法来使所使用的日期的列表是通过产生过日期的整个范围内（到最近的结束日期从最早的开始日期）的阵列，以使用一个“筛子”的方法则在所使用的那些填充

=SUMPRODUCT(SIGN(COUNTIFS(A2:A10,"<="&ROW(INDIRECT(MIN(A2:A10)&":"&MAX(B2:B10))),B2:B10,">="&ROW(INDIRECT(MIN(A2:A10)&":"&MAX(B2:B10))))))

（D列中的数字刚刚作为支票手动输入，并未在计算中使用）。

这显示了数组的样子

来源

2017-05-09 13:32:58

Tom在哪里存储数组？ –

该阵列只是暂时的，它不存储在任何地方。如果您取公式= SIGN（COUNTIFS（A2：A10，“<=”＆ROW（INDIRECT（MIN（A2：A10）＆“：”＆MAX（B2：B10）））， B2：B10“ > =“＆ROW（INDIRECT（MIN（A2：A10）＆”：“＆MAX（B2：B10）））））并将其作为数组公式输入到一个单元格区域中，您会看到该数组映射为一系列0（不使用日期）和1（使用日期）。 –

计算多个日期范围中的独特日期

回答

相关问题