Hücrelere kurallı sayılar ekleme

[OnnuuR]

Merhaba aşağıdakigibi ilerleyen sayı dizim var, iki dolu hücre arasına da sayılar eklemek istiyorum ancak bu sayı üstteki dolu hücrenin +1 fazlası olacak bunu yapabilir miyiz? Renkli olanlar araya eklediklerim.

2
3
4
4
4
3
4
4
4
3
3
3
3
2
2
2
1
2
2
2
1
1
1
1
2
2
3
3
3
1
1
1
2
3
3
4
4
2
2
2
2
2
1
1
1
1
1
2
3
3
3
3
3
2
2

 

[DoğanD]

Merhaba,

Aşağıdaki kodu uygulayabilirsiniz. Verilerinizin A sütununda olduğunu varsayarak hazırlandı. Farklı bir sütunda ise düzeltme gerekir.

Sub dd()
Dim i, k As Integer
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row 'A harfi yerine hangi sütun ise
If Cells(i, 1) <> "" Then '1 yerine sütun numarası
k = Cells(i, 1) + 1 'Cells(i,1)'deki 1 yerine sütun numarası
Else
Cells(i, 1) = k '1 yerine sütun numarası
End If
Next i
End Sub

 

[OnnuuR]

Sanırın kodun içinde açıklamalar var onlara göre düzenleyeceğim doğru mu? Teşekkür ederim.

 

[DoğanD]

Evet, kodu yazdığınız yerde açık yeşil renkte görünen açıklamaları izleyebilirsiniz kullanacağınız sütun farklı ise.