Split

Söz dizimi​

Split(expression, [delimiter], [limit], [compare])

• expression: Bölünecek metin. Zorunludur. Boş metin verilirse sonuç, öğesi olmayan bir dizidir ve UBound değeri -1 olur.
• delimiter: Parçaları ayıran karakter ya da karakter dizisi. İsteğe bağlıdır; varsayılanı bir boşluk karakteridir. Birden fazla karakterli ayırıcılar (örneğin " ve ") kullanılabilir. Ayırıcı olarak boş metin ("") verilirse metnin tamamı tek öğeli dizi olarak döner.
• limit: Döndürülecek en fazla parça sayısı. İsteğe bağlıdır; varsayılanı -1'dir ve metnin tamamı bölünür. Sınıra ulaşıldığında kalan metin son öğede tek parça olarak kalır.
• compare: Ayırıcı aranırken kullanılacak karşılaştırma türü. İsteğe bağlıdır; varsayılanı vbBinaryCompare değeridir (büyük/küçük harf duyarlı).

Dönüş değeri ve karşılaştırma sabitleri​

Dim parca() As String
parca = Split("Ankara;İzmir;Bursa", ";")
' parca(0) = Ankara, UBound(parca) = 2

• vbBinaryCompare (0): İkili karşılaştırma; büyük/küçük harf ayrımı yapılır. Varsayılandır.
• vbTextCompare (1): Metin karşılaştırması; büyük/küçük harf ayrımı yapılmaz.
• vbDatabaseCompare (2): Yalnızca Microsoft Access'te anlamlıdır, Excel'de kullanılmaz.

Davranış ayrıntıları​

1. Noktalı virgülle birleşmiş kaydı sütunlara ayırma​

Sub KayitlariAyir()
    Dim ws As Worksheet
    Dim son As Long, i As Long, j As Long
    Dim parca() As String

    Set ws = ActiveSheet
    ' A sütunundaki son dolu satırı bul
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        ' Kaydı noktalı virgüle göre böl
        parca = Split(ws.Cells(i, 1).Value, ";")
        For j = 0 To UBound(parca)
            ws.Cells(i, 2 + j).Value = parca(j)
        Next j
    Next i
End Sub

2. limit parametresiyle ad ve soyadı ayırma​

Sub AdSoyadAyir()
    Dim ws As Worksheet
    Dim son As Long, i As Long
    Dim parca() As String

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        ' En fazla 2 parça: ilk kelime ve kalan metin
        parca = Split(Trim(ws.Cells(i, 1).Value), " ", 2)
        ws.Cells(i, 2).Value = parca(0)
        ' Metinde boşluk yoksa dizide tek öğe vardır
        If UBound(parca) >= 1 Then
            ws.Cells(i, 3).Value = parca(1)
        End If
    Next i
End Sub

3. vbTextCompare ile büyük/küçük harf ayrımı yapmadan bölme​

Sub UrunleriAyir()
    Dim ws As Worksheet
    Dim son As Long, i As Long, j As Long
    Dim p As Variant

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        ' limit için -1: tüm parçalar; büyük/küçük harf ayrımı yok
        p = Split(ws.Cells(i, 1).Value, " ve ", -1, vbTextCompare)
        For j = 0 To UBound(p)
            ws.Cells(i, 2 + j).Value = Trim(p(j))
        Next j
    Next i
End Sub

Kullanırken dikkat edin​

• Dizi sıfırdan başlar: Split sonucunun ilk öğesi parca(0) ile alınır. Öğe sayısı UBound + 1'dir; son öğeye UBound(parca) ile ulaşırsınız. Bu yapı Option Base 1 ayarından etkilenmez.
• Boş metin ve ardışık ayırıcılar: Boş bir metni böldüğünüzde UBound değeri -1 olur ve parca(0) çağrısı alt simge hatası verir. Bu yüzden hücreyi bölmeden önce boş olup olmadığını kontrol edin. Arka arkaya gelen ayırıcılar boş öğeler üretir; bunları atlamak için öğeyi yazmadan önce uzunluğunu denetleyin.
• Büyük/küçük harf duyarlılığı: Varsayılan karşılaştırma büyük/küçük harfe duyarlıdır. Ayırıcı bir sözcükse ve yazımı değişebiliyorsa vbTextCompare kullanın. limit parametresini atlamak için -1 yazın ya da araya boş virgül koyun.
• Sayılar metin olarak gelir: Split her zaman String öğeler döndürür. Parçalardan sayı veya tarih gerekiyorsa CLng, CDbl ya da CDate gibi dönüştürme işlevlerini kullanın; aksi halde hücreye metin olarak yazılır ve toplama gibi işlemlerde sorun çıkabilir.
• Sonucu tek seferde yazma: Parçaları döngüyle tek tek yazmak yerine, sonucu Range.Resize ile boyutlandırılmış bir aralığa atamak isterseniz dizinin tek boyutlu ve yatay olduğunu unutmayın; Split dizisi satır olarak yazılır. Büyük veri kümelerinde ekran güncellemesini Application.ScreenUpdating ile kapatmak hızı artırır.
• İlgili konular:
  • Join: Bir dizinin öğelerini ayırıcı ile tek metinde birleştirir; Split'in tersidir.
  • UBound ve LBound: Dizinin üst ve alt sınırını verir.
  • Replace: Metin içindeki ifadeleri değiştirir; bölmeden önce ayırıcıları düzenlemek için kullanılır.
  • Trim: Parçaların baştaki ve sondaki boşluklarını temizler.
  • Array: Elle bir Variant dizi oluşturur.
  • Veri > Veri Araçları > Metni Sütunlara Dönüştür (Data > Data Tools > Text to Columns): Aynı işi kod yazmadan arayüzden yapar.
  • SOLDAN, SAĞDAN, PARÇAAL, BUL: Çalışma sayfasında metin parçalamak için kullanılan işlevlerdir.