сканирования: src и включают директоров

Итак, что я сделал:

• Ячейка B2 имеет формулу =COUNTIFS(A:A,A2,D:D,"<"&D2,E:E,E2)+1
• Ячейка C2 имеет формулу ="Weekday "&WEEKDAY(D2,2)
• Ячейка E2 имеет формулу ="WEEK "&WEEKNUM(D2,2)
• Ячейка F2 имеет формулу =IF(B2>1,"Duplicate,"")
• Перетащите вниз формулы

[1110 ]

Конечно, вам нужно ссылаться на ваши столбцы в соответствии с вашими данными.

Для автоматического добавления формул при добавлении некоторых новых данных в ваш список есть много способов, но простой может быть следующим:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual

Dim X As Long, LR As Long
With ActiveSheet
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For X = 2 To LR
    If Cells(X, 2) = "" Then
        Cells(X, 2).Formula = "=COUNTIFS(A:A,A" & X & ",D:D,""< ""&D" & X & ",E:E,E" & X & ")+1"
        Cells(X, 3).Formula = "=""Weekday ""&WEEKDAY(D" & X & ",2)"
        Cells(X, 4).Value = Date
        Cells(X, 5).Formula = "=""Week ""&WEEKNUM(D" & X & ",2)"
        Cells(X, 6).Formula = "=IF(B" & X & ">1,""Duplicate"","""")"
    End If
Next X

Application.EnableEvents = True
Application.ScreenUpdating = True
Calculate
End Sub

Вставьте этот макрос под рабочую таблицу, которую вы используете. И снова измените ссылки на номера столбцов на свои.