计算一年中日期范围覆盖/发生的周数

Question

我在工作表中有许多记录，每条记录都有开始和结束日期。 每行都有一个记录号，有些行的记录号与其他行相同（该表列出了使用该案例的案例和日期。有些案例只有 1 行，而其他案例会有多行）

每个案例的日期不会重叠，但每个范围之间可能会有差距

例如：

案例# -- 开始日期 -- 结束日期
案例 1 - 01/01/2018 - 05/01/2018
案例 1 - 06/01/2018 - 13/01/2018
案例 1 - 17/03/2018 - 20/03/2018
案例 2 - 14/02/2018 - 15/02/2018
案例 3 - 19/05/2018 - 25/05/2018
案例 3 - 26/05/2018 - 28/05/2018

我需要知道这些日期范围涵盖了多少周。所以对于案例1，它是4周（第二行的开始日期仍然与第一行在同一周内，所以不需要两次计算周数，第三行实际上发生在2个不同的周内，所以将被计为 2 周）

我可以获得日期的周数（使用 ISOWEEKNUM），但我需要一个公式来查看该案例的所有行#，并且不包括间隔中的周数。如果我对案例 1 使用最早日期，然后使用最晚日期，则周数将是 12...

如果有人可以提供帮助，我将不胜感激，我无法在搜索中找到任何内容

TIA 干杯，纳特

Answer 1

编写一个用户定义的函数并在工作表中使用它？下面的 UDF 有四个参数：

arg1 范围 caseNumber：这是包含要获取周数的案例编号的范围。它必须是单个单元格。

arg2 Range rng: 这是不包括要计数的标头的数据范围。

arg3 Long startDateColumn：包含开始日期的选定范围内的列号。不是工作表中的列号。

arg4 Long endDateColumn：包含结束日期的所选范围内的列号。不是工作表中的列号。

代码进入 VBE 项目的标准模块中。

---

Public Function GetWeekCount(ByVal caseNumber As Range, ByVal rng As Range, ByVal startDateColumn As Long, ByVal endDateColumn As Long) As Variant
    Dim arr(), i As Long, j As Long, dict As Object
    If caseNumber.Count <> 1 Then GetWeekCount = CVErr(xlErrValue)
    Set dict = CreateObject("Scripting.Dictionary")
    arr = rng.Value
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 1) = caseNumber Then
            For j = CLng(DateValue(arr(i, startDateColumn))) To CLng(DateValue(arr(i, endDateColumn)))
                dict(Application.WorksheetFunction.IsoWeekNum(j)) = 1
            Next j
        End If
    Next i
    If dict.Count > 0 Then
        GetWeekCount = Application.WorksheetFunction.Sum(dict.items)
    Else
        GetWeekCount = 0
    End If
End Function

---

使用示例：

---

标准模块（不是类，不在工作表窗格中）：