Vba: metni sütunlara dönüştürme

Bir metin hücresini sütunlara dönüştürmek için VBA’da Range.TextToColumns yöntemini kullanabilirsiniz.

Aşağıdaki örnekler, bu yöntemin pratikte farklı senaryolarda nasıl kullanılacağını göstermektedir.

Örnek 1: Metni sütunlara dönüştürme (sınırlayıcı olarak boşluk)

Excel’de A1:A9 aralığında aşağıdaki ad listesine sahip olduğumuzu varsayalım:

Her hücredeki metni, ayırıcı olarak boşlukları kullanarak ayrı sütunlara dönüştürmek için aşağıdaki makroyu oluşturabiliriz:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Her hücredeki metnin ayrı sütunlara dönüştürüldüğüne dikkat edin.

Not : ArdışıkDelimiter:=True bağımsız değişkeni, VBA’ya ardışık sınırlayıcıları birlikte tek bir sınırlayıcı olarak dikkate almasını söyler.

Örnek 2: Metni sütunlara dönüştürme (sınırlayıcı olarak virgül)

A1:A9 aralığında virgülle ayrılmış aşağıdaki ad listesine sahip olduğumuzu varsayalım:

Her hücredeki metni, sınırlayıcı olarak virgül kullanarak ayrı sütunlara dönüştürmek için aşağıdaki makroyu oluşturabiliriz:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Comma:=True
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Her hücredeki metnin ayrı sütunlara dönüştürüldüğüne dikkat edin.

Örnek 3: Metni sütunlara dönüştürme (çift tırnak içine alınmış metinle)

A1:A9 aralığında boşluklarla ayrılmış ve çift tırnak içeren aşağıdaki ad listesine sahip olduğumuzu varsayalım:

Her hücredeki metni ayrı sütunlara dönüştürmek için aşağıdaki makroyu oluşturabiliriz:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Her hücredeki metnin ayrı sütunlara dönüştürüldüğüne dikkat edin.

VBA’ya metnin çift tırnak içine alındığını bildirmek için TextQualifier:=xlDoubleQuote bağımsız değişkenini kullandığımızı unutmayın.

Not : VBA’daki TextToColumns yönteminin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA kullanılarak diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir dizedeki karakterlerin oluşumlarını sayma
VBA: bir dizenin başka bir dize içerip içermediği nasıl kontrol edilir
VBA: Belirli bir metin içeren hücreler nasıl sayılır?