Ayraç ile Metin Dizilerini Birden Çok Satıra Bölme - 3 Hızlı Yöntem

Normalde, metni virgül, nokta, noktalı virgül, eğik çizgi vb. gibi belirli bir ayraçla birden çok sütuna bölmek için Sütunlara Metin özelliği kullanabilirsiniz. Ancak, bazen hücre içeriğini birden çok satıra bölmek ve diğer sütunlardaki verileri aşağıdaki ekran görüntüsünde gösterildiği gibi tekrarlamak isteyebilirsiniz. Excel'de bu görevle başa çıkmak için iyi yöntemleriniz var mı? Bu öğretici, bu işi Excel'de tamamlamak için bazı etkili yöntemler tanıtmaktadır.

Video: Ayraç ile metin dizilerini birden çok satıra bölme

Yöntem A: VBA kodu ile ayraçlı metni birden çok satıra bölme

Bu bölümde, belirli bir ayraçla ayrılmış olan hücre içeriklerini bölmeye yardımcı olmak için iki VBA kodu tanıtacağım.

Virgül, boşluk, noktalı virgül vb. ile ayrılmış metin

Virgül, boşluk, noktalı virgül, eğik çizgi vb. gibi bazı normal ayırıcılarla ayrılmış metin dizilerini bölmek için aşağıdaki kod size yardımcı olabilir. Lütfen aşağıdaki adımları izleyin:

 Not: Bu kod Geri Al özelliğini desteklemez, bu kodu uygulamadan önce verilerinizi yedeklemeniz daha iyi olacaktır.

Adım 1: VBA modülü düzenleyicisini açın ve kodu kopyalayın

1. Kullanmak istediğiniz sayfayı etkinleştirin. Ardından, "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. Açılan pencerede, yeni bir boş modül oluşturmak için "Ekle" > "Modül" seçeneğine tıklayın.

3. Ardından, aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Belirli bir ayraç (virgül, nokta, boşluk, vb.) ile metni bölme

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub
    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub   

Adım 2: Kodu çalıştırarak sonucu alın

1. Kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için "F5" tuşuna basın. Ardından, bölmek istediğiniz ayraçlı metinleri içeren hücreleri seçmenizi hatırlatmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

2. Sonra, "Tamam" butonuna tıklayın, başka bir uyarı kutusu açılacak ve veriyi bölmek istediğiniz ayırıcıyı yazmanızı hatırlatacaktır. Burada, bir virgül ve boşluk (, ) yazıyorum, aşağıdaki ekran görüntüsüne bakın:

3. En sonunda, "Tamam" butonuna tıklayın. Şimdi, seçilen metin dizilerinin virgüle göre satırlara bölündüğünü ve diğer ilgili sütun verilerinin aşağıdaki ekran görüntülerinde gösterildiği gibi tekrarlandığını göreceksiniz:

Satır sonu ile ayrılmış metni bölme

Hücre içerikleriniz satır sonlarıyla ayrılıyorsa, bunları birden çok satıra bölmek için burada başka bir VBA kodu bulunmaktadır.

 Not: Bu kod Geri Al özelliğini desteklemez, bu kodu uygulamadan önce verilerinizi yedeklemeniz daha iyi olacaktır.

Adım 1: VBA modülü düzenleyicisini açın ve kodu kopyalayın

1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. Açılan pencerede, yeni bir boş modül oluşturmak için "Ekle" > "Modül" seçeneğine tıklayın.

3. Ardından, aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Satır sonu ile metni bölme

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Chr(10)
    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub 

Adım 2: Kodu çalıştırarak sonucu alın

1. Kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için "F5" tuşuna basın. Açılan kutuda, bölmek istediğiniz hücreleri seçin, aşağıdaki ekran görüntüsüne bakın:

2. Sonra, "Tamam" butonuna tıklayın, seçilen hücrelerdeki veriler aşağıdaki ekran görüntüsünde gösterildiği gibi satırlara bölünür:

Yöntem B: Kutools for Excel ile 10 saniyede ayraçlı metni birden çok satıra bölme

"Kutools for Excel" yüklediyseniz, "Birden Çok Satıra Böl" özelliğini kullanarak herhangi bir ayraçla belirttiğiniz metin dizilerini birden çok satıra bölebilirsiniz. Lütfen aşağıdaki adımları izleyin:

Adım 1: Birden Çok Satıra Böl özelliğini seçin

"Kutools" > "Birleştir ve Böl" > "Birden Çok Satıra Böl" seçeneğine tıklayın, aşağıdaki ekran görüntüsüne bakın:

Adım 2: Bölme için veri hücrelerini ve ayraçları belirtin

Açılan diyalog kutusunda, aşağıdaki seçenekleri kullanın:

• 1). "Aralık (tek sütun)" metin kutusundan bölmek istediğiniz hücre listesini seçin;
• 2). Ardından, verilerinizi ayıran ayraçları seçin, burada "Diğer" seçeceğim ve virgül ve boşluk (, ) yazacağım;
• 3). Son olarak, "Tamam" butonuna tıklayın.

Şimdi, seçilen hücrelerdeki ayraçlı metin dizileri belirli bir ayırıcıya göre birden çok satıra dönüştürülmüştür, aşağıdaki ekran görüntüsüne bakın:

 İpuçları: Orijinal verileri geri yüklemek isterseniz, sadece Ctrl + Z tuşlarına basarak geri alabilirsiniz.

Kullanımı kolay mı? Bu özellik ilginizi çektiyse, lütfen 30 günlük ücretsiz deneme sürümünü indirmek için tıklayın.

Yöntem C: Power Query ile ayraçlı metni birden çok satıra bölme

Office 365 veya Excel 2016 ve sonraki sürümlerini kullanıyorsanız, "Power Query", ayraçlı metni birden çok satıra veya sütuna bölmek için güçlü bir araçtır. Orijinal verileriniz değiştiğinde bölünmüş verilerin yenilenmesini istiyorsanız faydalıdır. Lütfen aşağıdaki adımları izleyerek işlemi tamamlayın:

Adım 1: Veri tablosunu Power Query'ye alın

1. Kullanmak istediğiniz veri aralığını seçin, ardından "Veri" > "Tablodan", aşağıdaki ekran görüntüsüne bakın:

 İpuçları: Excel 2019 ve Office 365'te, Veri > Tablodan/Aralıktan seçeneğine tıklayın.

2. Açılan "Tablo Oluştur" diyalog kutusunda, bir tablo oluşturmak için "Tamam" butonuna tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. Şimdi, verilerle birlikte "Power Query Düzenleyici" penceresi görüntülenir, aşağıdaki ekran görüntüsüne bakın:

Adım 2: Power Query'de dönüşümleri yapın

1. Bölmek istediğiniz sütunu seçin. Ardından, "Ana Sayfa" > "Sütun Böl" > "Ayraçla", aşağıdaki ekran görüntüsüne bakın:

2. "Ayraçla Sütun Böl" diyalog kutusunda:

Metin dizilerini virgül, boşluk, noktalı virgül vb. ile bölmek için lütfen şu adımları izleyin:

• 1). Verilerinizi ayıran ayraçları "Ayraç Seçin veya Girin" açılır listesinden seçin;
• 2). "Bölme Yeri" bölümünden "Her bir ayraç geçişinde" seçeneğini seçin;
• 3). Ardından, "Gelişmiş Seçenekler" bölümünü genişletmek için tıklayın ve "Satırlar" seçeneğini "Bölün" altında seçin;
• 4). Son olarak, bu diyalog kutusunu kapatmak için "Tamam" butonuna tıklayın.

Metin dizilerini satır sonuyla birden çok satıra bölmek için lütfen şu adımları izleyin:

• 1). "Ayraç Seçin veya Girin" açılır listesinden "Özel" seçeneğini seçin;
• 2). "Özel Karakter Ekle" açılır menüsünden "Satır Besleme" seçeneğine tıklayın ve "#(lf)" karakterleri otomatik olarak "Özel" altındaki metin kutusuna eklenecektir;
• 3). "Bölme Yeri" bölümünden "Her bir ayraç geçişinde" seçeneğini seçin;
• 4). Ardından, "Gelişmiş Seçenekler" bölümünü genişletmek için tıklayın ve "Satırlar" seçeneğini "Bölün" altında seçin;
• 5). Son olarak, bu diyalog kutusunu kapatmak için "Tamam" butonuna tıklayın.

3. Şimdi, seçilen veriler aşağıdaki ekran görüntüsünde gösterildiği gibi birden çok satıra bölünmüştür:

Adım 3: Power Query'yi bir Excel tablosuna aktarın

1. Ve sonra, verileri çalışma sayfanıza aktarmalısınız. Lütfen "Ana Sayfa" > "Kapat ve Yükle" > "Kapat ve Yükle / Kapat ve Yükle Şuraya" seçeneğine tıklayın, (burada "Kapat ve Yükle" seçeneğine tıklayacağım), aşağıdaki ekran görüntüsüne bakın:

 İpuçları: "Kapat ve Yükle" seçeneğine tıklarsanız, veriler yeni bir çalışma sayfasına aktarılacaktır; "Kapat ve Yükle Şuraya" seçeneğine tıklarsanız, veriler ihtiyacınız olan başka bir sayfaya aktarılacaktır.

2. Son olarak, veriler yeni bir çalışma sayfasına yüklenecektir, aşağıdaki ekran görüntüsüne bakın:

 İpuçları: Orijinal tablonuzdaki verileri sık sık güncellemeniz gerekiyorsa, endişelenmeyin, sadece sonuç tablosuna sağ tıklayın ve dinamik olarak yeni sonucu almak için "Yenile" seçeneğine tıklayın.

İlgili Makaleler: