Skip to main content

Excel'de uzun bir listeyi eşit gruplara nasıl bölersiniz?

Author: Xiaoyang Last Modified: 2025-08-07
split a long list into equal groups

Aşağıdaki ekran görüntüsünde gösterildiği gibi, uzun bir veri listesini birden fazla eşit gruba bölmek istiyorsanız, bu görevi Excel'de hızlı ve kolay bir şekilde nasıl halledebilirsiniz?

Uzun bir listeyi VBA kodu ile birden fazla eşit gruba bölme

Excel için Kutools ile uzun bir listeyi birden fazla eşit gruba bölme


Uzun bir listeyi VBA kodu ile birden fazla eşit gruba bölme

Verileri teker teker kopyalayıp yapıştırmaktan başka, aşağıdaki VBA kodu da size yardımcı olabilir, lütfen aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Uzun bir listeyi birden fazla eşit gruba bölme

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan kutuda, bölünmesini istediğiniz sütunu seçin, aşağıdaki ekran görüntüsüne bakın:

vba code to select the data range

4. Tamam butonuna tıklayın, ardından sonuçları yerleştirmek istediğiniz hücreyi aşağıdaki açılır kutuda seçin, aşağıdaki ekran görüntüsüne bakın:

vba code to select a cell to put the result

5. Tamam'a tıklayın ve her sütunda bölünmesini istediğiniz hücre sayısını aşağıdaki açılır kutuya girin, aşağıdaki ekran görüntüsüne bakın:

vba code to enter the number of cells that you want to split per column

6. Son olarak, kodu tamamlamak için Tamam'a tıklayın ve seçilen liste verileri, ihtiyacınız olan şekilde birden fazla eşit gruba bölünmüş olacaktır, aşağıdaki ekran görüntüsüne bakın:

the selected list data has been split into multiple equal groups


Excel için Kutools ile uzun bir listeyi birden fazla eşit gruba bölme

Excel için Kutools'u yüklediyseniz, Aralığı Dönüştür özelliğiyle uzun bir listeyi hızlıca birden fazla sütun ve satıra bölebilirsiniz; ayrıca birden fazla sütunu tek bir uzun listeye de birleştirebilirsiniz.

Kutools for Excel, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

Excel için Kutools'u yükledikten sonra, lütfen şu adımları izleyin:

1. Bölmek istediğiniz uzun listeyi seçin ve ardından Kutools > Aralık > Aralığı Dönüştür'e tıklayın, aşağıdaki ekran görüntüsüne bakın:

click Transform Range feature of kutools

2. Aralığı Dönüştür iletişim kutusunda, Dönüşüm Türü bölümünde Tek Sütunu Aralığa Dönüştür seçeneğini işaretleyin ve ardından Sabit Değer kutucuğunu işaretleyip her satırda kaç hücre olmasını istediğinizi belirtin, aşağıdaki ekran görüntüsüne bakın:

specify the options in the dialog box

3. Ardından Tamam'a tıklayın ve sonuçları yerleştirmek istediğiniz hücreyi açılır kutuda seçin, aşağıdaki ekran görüntüsüne bakın:

select a cell where you want to locate the result

4. Ve Tamam butonuna tıklayın, listenin içindeki veriler ihtiyaç duyduğunuz şekilde birden fazla eşit gruba bölünmüş olacaktır.

Excel için Kutools'u şimdi indirin ve ücretsiz deneyin!

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veriye dayalı analizi devrimsel olarak değiştirin: Akıllı Yürütme |Kod Oluştur |Özel Formüller Oluştur |Verileri Analiz Edin ve Grafikler Oluşturun |Geliştirilmiş İşlevler’i çağırın
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle | Boş Satırları Sil | Sütunları veya Hücreleri Verileri Kaybetmeden Birleştir | Formül Olmadan Yuvarla...
Süper ARA: Çoklu Kriter VLookup | Çoklu Değer VLookup | Çoklu sayfa araması | Bulanık Eşleme....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluşturun | Bağımlı Açılır Liste | Çoklu Seçimli Açılır Liste....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle | Sütunları Taşı | Gizli Sütunların Görünürlük Durumunu Değiştir | Aralıkları & Sütunları Karşılaştır...
Özel Seçilen Özellikler: Izgara Odaklama | Tasarım Görünümü | Gelişmiş formül çubuğu | Çalışma Kitabı & Çalışma Sayfası Yöneticisi | Otomatik Metin Kütüphanesi | Tarih Seçici | Veri Birleştir | Hücreleri Şifrele/Şifre Çöz | Listeye Göre E-posta Gönder | Süper Filtre | Özel Filtre (kalın/italik/üstü çizili filtreleme...)...
En Gözde15 Araç Seti:12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...) | 50+ Grafik Türü (Gantt Grafiği, ...) | 40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...) | 19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...) | 12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...) | 7 Birleştir & Böl Araçları (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...) | ... ve daha fazlası
Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla başka dili destekler!

Kutools for Excel ile Excel becerilerinizi güçlendirin, daha önce hiç yaşamadığınız bir verimlilik deneyimini yaşayın. Kutools for Excel, üretkenliğinizi artıracak ve zamanı kaydetmenizi sağlayacak300’den fazla gelişmiş özellik sunar. En çok ihtiyaç duyduğunuz özelliği almak için buraya tıklayın...


Office Tab, Office’e sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır

  • Word, Excel, PowerPoint’te sekmeli düzenleme ve okuma işlevini etkinleştirin.
  • Aynı pencere içerisinde yeni sekmelerde birden fazla belge açın veya oluşturun, yeni pencerelerde açmak yerine.
  • Verimliliğinizi %50 artırın, her gün yüzlerce fare tıklamasını sizin için azaltın!