Excel'de uzun bir listeyi eşit gruplara nasıl bölebilirim?
Excel'de büyük veri kümeleriyle çalışırken, uzun bir öğe listesini birkaç eşit gruba bölmek zorunda kalabileceğiniz durumlarla karşılaşabilirsiniz. Örneğin, anket yanıtlarını dağıtmak, dengeli atamalar oluşturmak veya bir proje için ekipleri düzenlemek isteyebilirsiniz. Böyle listeleri elle bölmek, özellikle kapsamlı verilerde zaman alıcı ve hatalara açık olabilir. Listeleri eşit gruplara verimli şekilde bölmek, iş akışını kolaylaştırır, veri organizasyonunu geliştirir ve hata yapma olasılığını azaltır.
Excel, bunu gerçekleştirmek için formül tabanlı tekniklerden VBA otomasyonuna ve Kutools for Excel gibi kullanışlı eklentilere kadar çeşitli pratik yöntemler sunar. Her yaklaşımın kendine özgü avantajları bulunur ve farklı beceri seviyeleriyle senaryolara uygundur.
Uzun bir listeyi VBA koduyla birden çok eşit gruba bölme
Uzun bir listeyi Kutools for Excel ile birden çok eşit gruba bölme
Uzun bir listeyi Excel Formülü ile birden çok eşit gruba bölme
Uzun bir listeyi VBA koduyla birden çok eşit gruba bölme
Verileri tek tek ayrı gruplara kopyalayıp yapıştırmak gibi yorucu bir yöntemin yanı sıra, VBA bu görevi hızlı ve hatasız şekilde otomatikleştirmenize yardımcı olabilir. Aşağıda, listenizi eşit gruplara bölmek için VBA kullanan adım adım bir kılavuz bulacaksınız:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications düzenleyici penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni oluşturulan Modül penceresine yapıştırın.
VBA kodu: Uzun bir listeyi birden çok 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 Sub3. Kodu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Görüntülenen giriş kutusunda, gruplara bölmek istediğiniz veri sütununu seçin.
4. Tamam düğmesine tıklayın, ardından bir sonraki istemde gruplanmış sonuçların yerleştirileceği başlangıç hücresini seçin.
5. Tamam düğmesine tıklayın ve istem iletişim kutusunda her grupta (her sütunda) kaç öğe olmasını istediğinizi girin.
6. Son olarak, işlemi tamamlamak için Tamam düğmesine tıklayın. Kod, seçtiğiniz listeyi belirttiğiniz sayıda öğe içeren birden çok sütuna otomatik olarak böler. Not: Liste eşit gruplara tam olarak bölünemiyorsa, son grupta daha az öğe olabilir.
VBA çözümü, makrolarla sorunsuz çalışan ve tekrarlayan görevleri otomatikleştirmek isteyen kullanıcılar için idealdir. En büyük avantajlarından biri esnekliğidir; ek yapılandırmaya gerek kalmadan betiği farklı grup boyutlarıyla çalıştırabilirsiniz. Ancak kod içerdiğinden dolayı, tüm profesyonel ortamlarda kullanımına izin verilmeyebilir ve VBA bilgisi olmayan kullanıcıların, makroları çalıştırmadan önce çalışmalarını kaydetmeleri gerekir.
Makro beklenildiği gibi çalışmazsa, Excel'de makroların etkin olup olmadığını kontrol edin. Ayrıca tek ve sürekli bir sütun seçtiğinizden emin olun; aksi takdirde kod, Veri Aralığı yeniden seçmenizi isteyecektir. Listenizin uzunluğu grup boyutuna tam bölünmüyorsa, son grupta daha az öğe olacaktır; bu nedenle dağıtım planınızı buna göre yapmayı düşünün.
Uzun bir listeyi Kutools for Excel ile birden çok eşit gruba bölme
Eğer Kutools for Excel yüklüyse, Aralığı Dönüştür özelliği, uzun bir listeyi yalnızca birkaç tıklamayla satırlar ve sütunlar arasında birden çok gruba hızlıca yeniden düzenlemenizi sağlar. Bu yöntem, manuel işlem hatalarını en aza indirir ve veri organizasyonunu çok daha verimli hale getirir. Kutools, teknik bilgisi az olan kullanıcılar için sezgisel iletişim kutuları ve güvenilir sonuçlar sunarak profesyonel bir kullanım deneyimi ekler.
Kutools for Excel yüklendikten sonra,Kutools for Excellütfen aşağıdakileri yapın:
1. Bölmek istediğiniz uzun listeyi seçin. Ardından Kutools > Aralık > Aralığı Dönüştür yolunu izleyin.
2. Aralığı Dönüştür iletişim kutusunda, Dönüşüm Türü altında Tek Sütunu Aralığa Dönüştür seçeneğini seçin, Sabit Değer kutusunu işaretleyin ve satır başına istediğiniz öğe sayısını girin. (Örneğin, dört grup oluşturmak istiyorsanız, buna göre grup boyutunu belirtin.) Bu, orijinal listenizin nasıl bölüneceğini belirler.
3. Tamam düğmesine tıklayın, ardından gruplanmış sonucun başlamasını istediğiniz çalışma sayfası hücresini seçin.
4. Tamam düğmesine tekrar tıklayın; Kutools, uzun listenizi ayarlarınıza göre anında eşit boyutlu gruplara böler.
Kutools for Excel kullanımı kolaydır ve manuel hataları en aza indirir. Grafiksel arayüzleri tercih eden, sık sık veri dönüşümleri yapan kullanıcılar için idealdir.
Kutools for Excel'i hemen indirin ve ücretsiz deneyin!
Uzun bir listeyi Excel Formülü ile birden çok eşit gruba bölme
VBA veya eklentiler kullanmak istemiyorsanız, Excel’in yerleşik formüllerinden yararlanarak listenizi eşit gruplara verimli bir şekilde bölebilirsiniz. Bu yaklaşım, taşınabilirlik sağlar, tüm Excel sürümleriyle uyumludur ve paylaşılan çalışma kitaplarında ya da makroların ve üçüncü parti eklentilerin kısıtlandığı ortamlarda güvenli bir çözüm arayanlar için özellikle idealdir. Yöntem, gruplarınızın sütunlar halinde yan yana düzenlenmesi planlandığında en iyi performansı gösterir.
Kodlama yapmadan listeyi gruplara göre kolayca filtreleyebilmeniz veya yeniden düzenleyebilmeniz için her bir girdiye grup numaraları atamanın yolu şöyledir:
1. Uzun listenizin A sütununda, A2 hücresinden başlayarak aşağıya doğru olduğunu varsayalım. İlk liste öğenizin yanındaki B2 hücresine grup numaralarını atamak için aşağıdaki formülü girin:
=MOD(ROW(A2)-ROW($A$2),4) +1Bu örnekte "4", istediğiniz grup sayısını temsil eder. Farklı sayıda gruba bölmek istiyorsanız bu değeri güncelleyin. Formül, grup numaralarını 1’den 4’e kadar döngüsel olarak atar.
2. Tüm satırlara grup numaralarını atamak için formülü listenizin sonuna kadar aşağı doğru sürükleyin. Böylece her satır grubuna göre etiketlenmiş bir yardımcı sütun elde edersiniz.
3. Grupları görüntülemek veya kaldırmak için:
- Filtreleri kullanın: Listenize Otomatik Filtre uygulayın ve kayıtları grup numarasına göre hızlıca ayırın.
- Her grubu ayrı konumlara kopyalayıp yapıştırabilir veya öğeleri gerektiği gibi yeniden düzenlemek için gelişmiş formüller ya da Özet Tablolar’dan yararlanabilirsiniz.
Dinamik dizi desteğine sahip Excel kullanıyorsanız (Microsoft 365 ve Excel 2021+), bir listeyi eşit boyutlu sütunlara otomatik olarak bölmek için SATIRLARISAR işlevini kullanabilirsiniz. Diyelim ki listeniz A2:A17 aralığında ve bu listeyi 4 sütuna (gruba) bölmek istiyorsunuz:
=WRAPROWS(SORTBY(A2:A13, RANDARRAY(ROWS(A2:A13))), 4)Yeni Grup düzenlemenizin başlamasını istediğiniz hücreye bu formülü girin ve Enter tuşuna basın. Formül, listenizi eşit bölümlere ayırarak bu bölümleri rastgele sütunlara yerleştirir.
- Listeniz tam olarak eşit şekilde bölünemiyorsa, senaryonuza göre sütun(lar) #N/A hatası verir. Grup sayısını (burada "4") ayarlayabilirsiniz.
- Aralıkta boş hücreler varsa, bunlar gruplanmış sonuçlarda sıfır (0) olarak değerlendirilir.
Formül yönteminin avantajları arasında paylaşılan çalışma kitaplarıyla tam uyumluluk ve veriler değiştiğinde grup numaralarının anında yeniden hesaplanması yer alır. Ancak formüllerin yazılması veya ayarlanması dikkat ister—uyumsuz aralıklar ya da hatalı grup numaraları, eksik veya yinelenen girdilere yol açabilir. Bir hata fark ederseniz, liste aralığınızın doğru olduğundan ve formülleri tüm liste boyunca aşağı doğru sürüklediğinizden emin olun.
İpucu: Formülleri orijinal veriler üzerinde uygulamadan önce her zaman bir yedek alın. Ayrıca, yardımcı sütunları silmeyi planlıyorsanız, grupları düzenledikten sonra Özel Yapıştır > Değerler seçeneğini kullanın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar