Excel'de Bir Hücre İçeriğini Birden Çok Satıra Nasıl Ayırılır (Senaryolar + Araçlar Karşılaştırması)

İpucu: Verinizin nasıl ayrıldığına bağlı olarak "," ayracını ";" veya "|" olarak değiştirebilirsiniz.

Adım 2. Enter tuşuna basın.

Yöntem 3: Power Query – Ayır ve Satırları Genişlet (Microsoft 2016 ve sonraki sürümler)

Power Query, yapılandırılmış, tekrarlanabilir işlemler için idealdir. Güçlüdür, yenilenir ve toplu veri dönüşümleri için mükemmeldir.

Uygun Olduğu: Hem Senaryo 1 (Sadece Hedef Hücreyi Böl), hem de Senaryo 2 (Hücreyi Böl ve Diğer Sütun Verilerini Koru)

Adımlar: Senaryo 1'i (Sadece Hedef Hücreyi Böl) Örnek Alın

Adım 1. Aralığınızı seçin, Veri > Al ve Dönüştür > Tablo/Aralıktan' a gidin.

an 

Adım 2. Tablo Oluştur penceresinde Tamam'a tıklayın. (Seçili aralığınızda başlıklar varsa, Benim tablomun başlıkları vardır'ı işaretleyin.)

Adım 3. Power Query Düzenleyici'nde Ayraçlı Sütunu Böl'ü kullanın.

Adım 4. Ayraç seçin veya girin ve ardından Gelişmiş'i tıklayarak seçenekleri genişletin, Satırlara Ayır'ı seçin, sonra Tamam'a tıklayın.

Adım 5. Kapat ve Yükle > Kapat ve Yükle veya Kapat ve Yükle'yi seçin.

Aynı adımlar, Senaryo 2'ye (Diğer Sütun Verilerini Koruyarak Hücreleri Bölme) de uygulanır - sonuçlara bakalım.

Hedef hücre aralığı:

Sonuç:

Not: Power Query Düzenleyici penceresinde, satırlara bölmek istediğiniz hedef sütunu seçin ve ardından Ayraçlı Böl Sütun altındaki seçeneğe tıklayın.

İpucu: Beyaz boşluk veya özel karakterleri düzeltmek için Trim ve Clean adımları ekleyin.

Yöntem 4: Kutools Eklentisi – Tıklamalarla Ayırma

Eğer hücreleri sık sık ayırıyorsanız ve GUI tabanlı bir çözüm tercih ediyorsanız, Kutools harika bir araçtır. Karmaşık işlemleri birkaç tıklamaya indirger.

Uygun Olduğu: Hem Senaryo 1 (Sadece Hedef Hücreyi Böl), hem de Senaryo 2 (Hücreyi Böl ve Diğer Sütun Verilerini Koru)

Adımlar: Senaryo 1 (Sadece Hedef Hücreyi Böl)

Adım 1. Hedef hücreyi seçin.

Adım 2. Kutools > Birleştir ve Böl > Hücreleri Böl'e gidin.

Adım 3. Satırlara Böl seçeneğini seçin ve ayracı tanımlayın. Tamam'a tıklayın./p>

Adım 4. Bir hedef hücre seçin. Tamam'a tıklayın.

Adımlar: Senaryo 2 (Hücreyi Böl ve Diğer Sütun Verilerini Koru)

Adım 1. Satırlara ayırmak istediğiniz sütunu seçin.

Adım 2. Kutools > Birleştir ve Böl > Veriyi Satırlara Ayır'a gidin.

Adım 3. Ayraç tanımlayın. Tamam'a tıklayın.

Aynı adımlar, Senaryo 2'ye (Diğer Sütun Verilerini Koruyarak Hücreleri Bölme) de uygulanır - sonuçlara bakalım.

Hedef hücre aralığı:

Sonuç:

Not: 30 günlük Deneme sürümü, test etmek için tüm işlevselliği sunar.

Yöntem 5: VBA Script – Tamamen Özel Kontrol

Programlama bilgisi olan kullanıcılar için, VBA en üst düzey esnekliği sağlar. Betikleri tam olarak veri düzeninize ve iş kurallarınıza uyacak şekilde özelleştirebilirsiniz.

Uygun Olduğu: Hem Senaryo 1 (Sadece Hedef Hücreyi Böl), hem de Senaryo 2 (Hücreyi Böl ve Diğer Sütun Verilerini Koru)

Adımlar:

Adım 1. VBA düzenleyicisini açmak için Alt + F11 tuşlarına basın.

Adım 2. Ekle > Modül'e tıklayın.

Adım 3. Aşağıdaki VBA kodunu kopyalayıp yapıştırın.

Senaryo 1 Sadece Hedef Hücreyi Böl

'Update by Extendoffice
Sub SplitCellToRows_Simple()
    Dim InputCell As Range
    Dim Values As Variant
    Dim i As Long

  
    Set InputCell = Range("A1") ' change A1 to your target cell

    Values = Split(InputCell.Value, ",") 
    For i = 0 To UBound(Values)
        InputCell.Offset(i, 1).Value = Trim(Values(i))
    Next i
End Sub

Senaryo 2 Hücreyi Böl ve Diğer Sütun Verilerini Koru

'Update by Extendoffice
Sub SplitRowsWithOtherColumns()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    Dim arr As Variant, j As Long
    Dim SplitVals As Variant
    Dim CurrentRow As Long

    Set ws = ActiveSheet
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = LastRow To 2 Step -1
        If InStr(ws.Cells(i, 2).Value, ",") > 0 Then
            SplitVals = Split(ws.Cells(i, 2).Value, ",")

            For j = UBound(SplitVals) To 1 Step -1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, 1).Value = ws.Cells(i, 1).Value
                ws.Cells(i + 1, 2).Value = Trim(SplitVals(j))
            Next j

            ws.Cells(i, 2).Value = Trim(SplitVals(0))
        End If
    Next i
End Sub

Not: Bu VBA betiği, verilerinizin A ve B sütunlarında olduğunu ve bölünmesi gereken değerlerin B sütununda olduğunu varsayacak şekilde yapılandırılmıştır.

💡İpuçları:

• Bir makro çalıştırmadan önce her zaman verilerinizi yedekleyin.
• Betikteki "," yerine gerçek ayracınızı (örneğin, noktalı virgül için ";" veya pipe karakteri için "|") veri formatınıza uyacak şekilde değiştirin.

Yaygın Sorunlar

• Boş satırlar veya sütunlar: Genellikle sondaki ayırıcılar veya gizli boşluklar nedeniyle oluşur.
• Birleştirilmiş hücre hataları: Başlamadan önce hücreleri ayırın.
• Power Query yenilenmiyor: Kaynak verileri değiştirdikten sonra Yenile'ye tıkladığınızdan emin olun.
• Yanlış ayırıcı: Noktalı virgül ile virgül hatası tüm sonuçları bozabilir.

İlgili Makaleler:

• Transpoze Aralığı aracı: Excel'de birden fazla satırı kolayca sütunlara ve satırlara dönüştürme
• Birim Çevirici aracı: Ondalık sayıları hızlıca ikili/sekizli/onaltılı sayıya veya tam tersine çevirme