=СЧЁТ(1/ЧАСТОТА(ЕСЛИ($A$2:$A$6741=F2;--$C$2:$C$6741);--$C$2:$C$6741))

Sub selectData()
             
'ВАЖНО: в Tools \ References нужна ссылка на:
'Microsoft ActiveX Data Objects 2.8 Library
'(или с другим близким к 2.8 номером версии)
             
           Dim cnn             As New ADODB.Connection
           Dim rst             As New ADODB.Recordset
           Dim rng             As Range
           Dim fullFileName    As String
           Dim cnnStr          As String
           Dim sqlStmt         As String
           Dim i               As Integer
                  
           'полное имя файла - подправить для своего случая!
           fullFileName = "C:\KKU\ExcelWorld\Подсчёт смен 2.xls"
                  
           'формирование строки подключения (ConnectionString)
           cnnStr = cnnStr & "Provider=Microsoft.Jet.OLEDB.4.0;" 'для Excel до 2007
           'cnnStr = cnnStr & "Provider=Microsoft.ACE.OLEDB.12.0;" 'для Excel c 2007
           cnnStr = cnnStr & "Data Source=" & fullFileName & ";"
           cnnStr = cnnStr & "Extended Properties="
           cnnStr = cnnStr & "'Excel 8.0;HDR=Yes'" 'для Excel до 2007
           'cnnStr = cnnStr & "'Excel 12.0;HDR=Yes'" 'для Excel c 2007
                  
           'формирование запроса SQL
           sqlStmt = sqlStmt & "SELECT Продавец AS ФИО, Count(*) AS [отработано смен] "
           sqlStmt = sqlStmt & "FROM ("
           sqlStmt = sqlStmt & "SELECT Продавец, [Дата продажи] FROM [Лист1$] "
           sqlStmt = sqlStmt & "GROUP BY Продавец, [Дата продажи]"
           sqlStmt = sqlStmt & ") GROUP BY Продавец"
                  
           'готовим объекты ADODB: Connection и Recordset
           cnn.Open cnnStr
           rst.Open sqlStmt, cnn
                  
           'выводим собственно данные
           Set rng = Worksheets("Лист2").Range("A2")
           rng.CopyFromRecordset rst
                      
           'прописываем заголовки и подгоняем ширину колонок
           For i = 0 To rst.Fields.Count - 1
               With rng.Offset(-1, i)
                   .Value = rst.Fields(i).Name
                   .Font.Bold = True
               End With
           Next i
           rng.CurrentRegion.Columns.AutoFit
                  
End Sub

         #    doc.setRecordSource(
         #        'SELECT * FROM [EmplTable$] WHERE Left([Name],1) IN ' +
         #        '(  ' +
         #        ' SELECT TOP 1 FirstLetter FROM  ' +
         #        '  (  ' +
         #        '   SELECT TOP 3 FirstLetter, Count(*) AS CountOfFirstLetter  ' +
         #        '   FROM  ' +
         #        '    (    ' +
         #        '     SELECT Left([Name],1) AS FirstLetter, [EmplTable$].*  ' +
         #        '     FROM [EmplTable$]  ' +
         #        '    )   ' +
         #        '   GROUP BY FirstLetter  ' +
         #        '   ORDER BY Count(*) DESC  ' +
         #        '  )  ' +
         #        ' ORDER BY CountOfFirstLetter  ' +
         #        ')  ' );