Aynı satırların ikinci sütundakilerini değiştirme

[adrescec]

Merhaba, a ve b sütunlarında verilerim var. Ör;

A B
İstanbul Kadıköy
Ankara Kızılay
Bursa Nilüfer
Bursa Bursa
İzmir Konak
Adana Seyhan
Adana Adana

Ben bu a ve b sütunlarındaki bursa bursa, adana adana gibi aynı olan verilerin tümünün b sütunlarındakilerine merkez yazmak istiyorum bunu nasıl yapabiliriz. yani Bursanın karşısındaki bursaya merkez yazılacak. Adananın karşısındaki adanaya merkez yazılacak.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız..

Sub Değiştir()
Dim i As Long
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") = Cells(i, "B") Then
            [COLOR=red]Cells(i, "B") = Cells(i, "A") & " - Merkez"[/COLOR]
        End If
    Next i
End Sub

.

 

[adrescec]

Çok teşekkür ederim bir kaç gündür arıyordum makro bilmediğim için.

 

[adrescec]

Merhaba dediğiniz şekilde de kullandım ancak birde şöyle bir şeye ihtiyacım var sizin yazdığınız makro ile ikinci sütundaki aynı verilerin sonlarına - merkez yerleştiriliyor okey bu tamamdır birde ikinci sütundaki aynı veriler kaldırılsa bunun yerine sadece merkez yazsa olabilir mi? böyle bir şey yapabilirmiyiz?

 

[Ömer]

#2 nolu mesajda kırmızı işaretlediğim bölgeyi silip aşağıdaki kodu yazınız..

Cells(i, "B") = "Merkez"

.

 

[adrescec]

Çok teşekkür ederim Allah razı olsun ne diyeyim.