Как вы суммируете два столбца вместе и сравниваете их значения в функции countifs в vba?

Question

Я создаю список всех строк, где сеансы перекрываются.Ниже приведены две строки, в которых первая продолжительность будет превышать время начала второй строки.Я могу пометить это, используя =countifs((A1:A2),">="&A1, (A1:A2),"<"& A1+B1/1400)>1, но как функцию листа в цикле for в vba.Затем, если строка больше 1, я могу скопировать ее на новый лист.Это будет работать для строки 1, но не наоборот.

Как получить второй столбец для отметки без необходимости создания дополнительного столбца со временем плюс продолжительность?

Time   Duration (mins)  Staff
13:00  30               AB
13:15  45               AB

Возможно, существуетгораздо проще сделать это в VBA.Я использую показатели, так как в моих фактических данных много столбцов, которые должны соответствовать определенным требованиям, а также этому.

Пример Vba, который я использовал в операторе If

Application.WorksheetFunction.CountIfs( _
    Data.Range(Cells(2, 18), Cells(lastRow, 18)), Data.Cells(i, 18), _
    Data.Range(Cells(2, 19), Cells(lastRow, 19)), ">=" & Data.Cells(i, 19), _
    Data.Range(Cells(2, 19), Cells(lastRow, 19)), "<" & Data.Cells(i, 19) + (Data.Cells(i, 20) / 1440) + (Data.Cells(i, 21) / 1440), _
    Data.Range(Cells(2, 22), Cells(lastRow, 22)), Data.Cells(i, 22))