Bir sütunda geçen belirli kelimeleri diğer sütuna aktarma

[kan12345]

Merhaba Üstadlar, elimde bir dosyada ilçeler var. Ben orada geçen ilçeleri diğer sütuna taşımak istiyorum. Nasıl yapabilirim.

İlçeler
AKDENİZ, ANAMUR, AYDINCIK, BOZYAZI, ÇAMLIYAYLA, ERDEMLİ, GÜLNAR, MEZİTLİ, MUT, SİLİFKE, TARSUS, TOROSLAR, YENİŞEHİR

Ayrıca örnek excel tablosundaki ilçeleri başka bir şekilde diğer sütuna taşıma önerilerine de açığım.

Şimdiden çok teşekkür ederim.

 

[ÖmerFaruk]

Sorunuzda 13 ilçe yazmışınız ama dosyada 4 satır ve 2 farklı ilçe var. Ama bunda sorun yok.
1. Her satırda tek bir adres mi var?
2. Satırın sonunda Türkiye varsa ilçe sağdan 2. "/" dan önceki ifademidir?
3. Satırın sonunda Türkiye yoksa ilçe sağdan 1. "/" dan önceki ifademidir?

 

[kan12345]

Sorunuzda 13 ilçe yazmışınız ama dosyada 4 satır ve 2 farklı ilçe var. Ama bunda sorun yok.
1. Her satırda tek bir adres mi var?
2. Satırın sonunda Türkiye varsa ilçe sağdan 2. "/" dan önceki ifademidir?
3. Satırın sonunda Türkiye yoksa ilçe sağdan 1. "/" dan önceki ifademidir?

Merhaba Ömer Bey,

Evet örnek olduğu için kısa tuttum.
1- Ne yazık ki her satıda tek bir adres bütünü var.
2- evet
3- evet

 

[ÖmerFaruk]

Aşağıdaki kodları VBA penceresinde boş bir modüle içine ekleyin.
Sayfanızda =İlceler(A1) şeklinde kullanabilirsiniz.

Function İlceler(Hücre As Range)
    Metin = Trim(Replace(Replace(Hücre, "/", " "), "Türkiye", ""))
    MetinDizi = Split(Metin, " ")
    For k = UBound(MetinDizi) - 1 To 0 Step -1
        If Len(MetinDizi(k)) > 1 Then
            İlceler = MetinDizi(k)
            Exit Function
        End If
    Next k
End Function