Вот решение VBA. Сначала выберите данные в двух столбцах. Не выбирайте заголовки столбцов, если они существуют.
Затем поместите этот код в модуль и выполните его. (Инструкции по выполнению этого см. В этом посте.)
Sub TicketList()
'Two columns of drivers and ticket counts should be selected (no headers) before running this Sub.
Dim drivers() As Variant, output() As Variant, shtOut As Worksheet
Dim i As Long, j As Long, k As Long, scount As Integer
drivers = Selection.Value
'Set size of output array to match total number of tickets
ReDim output(1 To Application.WorksheetFunction.Sum(Selection), 1 To 1) As Variant
For i = LBound(drivers, 1) To UBound(drivers, 1)
For j = 1 To drivers(i, 2)
k = k + 1
output(k, 1) = drivers(i, 1)
Next j
Next i
'Place tickets on new sheet named "Driver Tickets #"
For Each sht In ThisWorkbook.Sheets
If InStr(sht.Name, "Driver Tickets") > 0 Then scount = scount + 1
Next sht
Set shtOut = Sheets.Add
If scount = 0 Then
shtOut.Name = "Driver Tickets"
Else
shtOut.Name = "Driver Tickets " & CStr(scount + 1)
End If
'Print output on the new sheet
shtOut.Range("A1").Resize(UBound(output, 1), 1).Value = output
End Sub
Это создаст список имен для билетов на новом листе с названием "Билеты водителя".