Hücre İçinde Büyük ve Küçük Harfli Kelimeleri Ayrı Sütunlara Kopyalama

[Aldueren]

Merhabalar,

Elimde yaklaşık 1000 kalemden oluşan bir liste var. Yardımcı olmanızı ümit ettiğim konu şu. Listede aynı hücre içinde baş harfleri büyük diğer harfleri küçük kelimeler ve bütün harfleri büyük kelimeler var. Ve bu kelimeler arasında sadece boşluk var. Ben bütün harfleri büyük olan kelimeleri ayrı bir sütuna kopyalamak istiyorum. Böyle birşey mümkün mü acaba?

Örneğin A1 hücresi şu şekilde:
Birinci Tepe İKİNCİ TEPE Üçüncü Tepe

Yazılar arasında görüldüğü üzere sadece boşluk var.

Benim istediğim aşağıdaki şekilde bir listeye ulaşmak.
A1 Birinci Tepe A2 İKİNCİ TEPE A3 Üçüncü Tepe


Eğer bunun bir çözümü varsa yardımcı olmanızı rica ediyorum.

 

[Mahir64]

Merhaba
Bu işlemi Metni sutunlara dönüştür seçeneğinde yapabilirsiniz.

Sub ayır()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(24, 1), Array(36, 1)), _
TrailingMinusNumbers:=True
End Sub

 

[Aldueren]

Cevap için teşekkür ederim.

Yalnız, 1000 kalemden oluşan liste içinde bazı hücreler 15 harften, bazıları ise 100 küsür harften oluşuyor. Örneklemek gerekirse;
A1 = Kelime KELİMELER Kelimecik
B1 = Beraber gidiyoruz BERABER GİDİYORLAR Beraberce Gitmişler

Metni sütunlara dönüştür seçeneğinde harf sayısı farklı olduğu için kelimeler anlamsız olarak bölünebiliyorlar.

Şöyle bir şeyde mümkün olursa işimi görür. Örneğin hücre içerisinde büyük harfle başlayıp büyük harfle biten kelimelerin başına ve sonuna bir simge (örneğin $ işareti) eklemek mümkün mü?

Yardımlarınız için çok teşekkür ederim.