How to count periods of absence in excel

Copper Contributor

Hey, I am creating a spreadsheet to track holidays and absence. I need to figure out a way of counting periods of absence. For example, in the attachment I want TEST 1 to show as one period of absence whereas TEST 2 should have two and TEST 3 should have three.


Please help!





11 Replies


Here is a custom VBA function that you can use:

Function Periods(daterange As Range, coderange As Range, code As String)
    Dim i As Long
    Dim f As Boolean
    For i = 1 To daterange.Count
        If Weekday(daterange(i).Value, vbMonday) <= 5 Then
            If coderange(i).Value = code Then
                If Not f Then
                    Periods = Periods + 1
                    f = True
                End If
                f = False
            End If
        End If
    Next i
End Function

In CC3, enter the formula


Adjust the ranges as needed, then fill to the right.

Don't forget to save the workbook as a macro-enabled workbook and to allow macros when you open the workbook.

@Hans Vogelaar Thank you, I'm one step closer now! That doesn't quite get what I'm after though, I need TEST 1 to show as one period and so on as over a weekend should still count as one period. It should only count as more if there is a working day between periods.



best response confirmed by Jack_Roberts (Copper Contributor)


What do you see when you open the sample workbook attached below?

Hey, that's what I am after thank you. I have copied that formula into my sheet and it works as desired now
Thanks for the VBA code, with this my formula does what I want. The issue I am having is that we have some weekend staff and I need their absences counted as well. Could you provide me with another code please?


Do weekend staff work only Saturday/Sunday, or do they work other days as well?

@Hans Vogelaar there is a mixture. Some work Sat - Wed, some Sunday only and some weekend only. My file has very similar layout to the one shown in this thread. I can make some modifications if needed to help with the calculations. Maybe a code in one of the rows to identify staff who work on above days?


See the attached workbook. You can now optionally specify a workdays string.

The workdays string must be seven characters long and each character in the string represents a day of the week, starting with Monday. 1 represents a workday and 0 represents a non-workday.

For example, "0000011" means that only Saturday and Sunday are workdays.

If you omit the workdays string, "1111100" is assumed, i.e. workdays are Monday to Friday.

@Hans Vogelaar this is genius, thank you. How can I make the formula not to be case sensitive?


Change the line

                If coderange(i).Value = code Then


                If UCase(coderange(i).Value) = UCase(code) Then
Thank you so much