Sütundaki boş hücre doldurma hk

[archers70]

merhabalar ;
bir sorum olacak şöyleki ;
a sütunundaki değerlerin bazılarının yanında bazı değerler var ancak her değerde yok . yanı a2 ve a3 deki değerler aynı ama sadece b3 de değer var b2 de yok b2 e de b3 deki değeri yazsın istiyorum. Nasıl yapabilirim?
umarım anlatabilmişimdir.
şimdiden teşekkürler..

 

[Muzaffer Ali]

Merhaba.
Kodu sayfanın kod kısmına kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(Bak, "A") = Cells(Bak + 1, "A") Then
            Cells(Bak, "B") = Cells(Bak + 1, "B")
        End If
    Next
End Sub