ArdiŞik Olmayan Sayilari Bulup, Satir AÇma

[Musa Batur]

YapmiŞ OlduĞumuz Excel Lİstesİnde Bİrbİrİnİ Takİp Etmeyen Numaralari Bulmak Ve Sonrasinda Da Bunlari Belİrleyİp Alta Satir AÇmak İstİyorum. Bu Konuyla İlgİlİ Nasil Bİr Yol İzlemem Gereklİ.
TeŞekkÜr Ederİm.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub NN()
son = [b65536].End(3).Row
For i = son To 2 Step -1
If Cells(i, 2) - 1 <> Cells(i - 1, 2) Then Rows(i).Insert
Next
End Sub

 

[veyselemre]

Sub dene()
    For x = [b65536].End(3).Row To 4 Step -1
        fark = Cells(x, 2) - Cells(x - 1, 2)
        If fark > 1 Then
            Rows(x & ":" & x + fark - 2).Insert Shift:=xlDown
            Range(Cells(x - 1, 2), Cells(x + fark - 2, 2)).Select
            Cells(x - 1, 2).AutoFill Destination:=Range(Cells(x - 1, 2), Cells(x + fark, 2)), Type:=xlFillSeries
        End If
    Next x
End Sub