VBA.Mania

Sub braki()
Dim i As Long, wiersz As Long, j As Long
Dim nowy As Worksheet, stary As Worksheet, roznica As Long, k As Long

Application.ScreenUpdating = False

Set stary = ActiveSheet
Set nowy = Worksheets.Add
stary.Select

wiersz = Cells(Cells.Rows.Count, 1).End(xlUp).Row

k = 0
For i = 1 To wiersz - 1
     If Cells(i + 1, 1) - 1 <> Cells(i, 1) Then
     roznica = Cells(i + 1, 1) - Cells(i, 1)
         For j = 1 To roznica - 1
         k = k + 1
         nowy.Cells(k, 1) = Cells(i, 1) + j
         Next j
     End If

Next i

Application.DisplayAlerts = False
If Application.WorksheetFunction.CountA(nowy.Cells) = 0 Then nowy.Delete
Application.DisplayAlerts = True

Set nowy = Nothing
Set stary = Nothing

Application.ScreenUpdating = True

End Sub

' sortuje dane
Range("A1").Select ' sortuje dane
Range("A1:A35").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _

Sub brakujce()
' sortuje dane
    Range("A1").Select ' sortuje dane
    Range("A1:A35").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

    Sheets(1).Activate
    Range("a1").Select
    Range(Selection, Selection.End(xlDown)).Select
    z = Selection.Rows.Count 'ilosc rekordów
    maksio = Sheets(1).Cells(z, 1) 'to jest max wart. rekordów
    mini = Sheets(1).Cells(1, 1) 'to jest minimum wart. rekordów
    'pętla duza; zakres danych
    For y = mini To maksio
                'petla mala ; szuka w komórkach
                For x = 1 To z
                If Sheets(1).Cells(x, 1) = y Then ' jak znajdzie
                GoTo bezdod
                End If
                Next x
                poz = poz + 1
                Sheets(2).Cells(poz, 1) = y
bezdod:
    Next y
End Sub

Dim i As Integer, wiersz As Integer, j As Integer,roznica As Integer, k As Integer

Dim i As long, wiersz As long, j As long,roznica As long, k As long

Sub braki()
Dim i As Integer, wiersz As Integer, j As Integer
Dim nowy As Worksheet, stary As Worksheet, roznica As Integer, k As Integer

Application.ScreenUpdating = False

Set stary = ActiveSheet
Set nowy = Worksheets.Add
stary.Select

wiersz = Cells(Cells.Rows.Count, 1).End(xlUp).Row

k = 0
For i = 1 To wiersz - 1
    If Cells(i + 1, 1) - 1 <> Cells(i, 1) Then
    roznica = Cells(i + 1, 1) - Cells(i, 1)
        For j = 1 To roznica - 1
        k = k + 1
        nowy.Cells(k, 1) = Cells(i, 1) + j
        Next j
    End If

Next i

Application.DisplayAlerts = False
If Application.WorksheetFunction.CountA(nowy.Cells) = 0 Then nowy.Delete
Application.DisplayAlerts = True

Set nowy = Nothing
Set stary = Nothing

Application.ScreenUpdating = True

End Sub