Excel'de bir sütundaki değerlere göre satırları hızlıca nasıl birleştirebilir ve ardından bazı hesaplamalar yapabilirim?
Örneğin, bir veri aralığınız var ve bir sütunda yinelenen değerler yer alıyor. Şimdi A sütunundaki (yinelenen değerlere sahip) verilere göre satırları birleştirmek ve bu birleştirilmiş satırlara dayanarak başka bir sütunda bazı hesaplamalar yapmak istiyorsunuz—aşağıdaki ekran görüntüsünde gösterildiği gibi:
Excel'de bir sütundaki değerlere göre satırları birleştirmenin doğrudan hızlı bir yolu yoktur; ancak size Yinelenen Satır Birleştir özelliğini kullanarak satırlarınızı kolayca birleştirmenize ve ardından başka bir sütunda toplama veya diğer hesaplamalar yapmanıza yardımcı olacak pratik püf noktalarını paylaşacağım.
| Orijinal Veri | Birleştir ve Topla |
 |  |
VBA ile bir sütuna göre satırları birleştirip değerleri toplama
Yinelenen satırları birleştirmenize ve ardından başka bir sütundaki değerleri toplamanıza yardımcı olabilecek bir VBA kodu mevcuttur.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın, ardından Ekle > Modül seçeneğine tıklayıp aşağıdaki VBA kodunu yeni Modül penceresine kopyalayın ve yapıştırın.
VBA: Bir sütun değerine göre satırları birleştirme
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. F5 tuşuna basın ya da Çalıştır düğmesine tıklayarak VBA'yı çalıştırın; ardından işlem yapılacak bir Veri Aralığı seçmeniz için bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
3. Çalışma aralığınızı seçtikten sonra Tamam'a tıklayın. Artık veriler ilk sütuna göre birleştirilmiş ve ikinci sütundaki değerler toplanmıştır.
Not: Bu VBA kodu yalnızca ilk sütuna göre birleştirme ve ikinci sütundaki değerleri toplama işlemlerinde doğru şekilde çalışır.
Bir sütuna göre satırları birleştirip değerleri Gelişmiş Satırları Birleştir ile toplama
VBA koduna aşina değilseniz, Gelişmiş Satırları Birleştir özelliğini barındıran üçüncü parti eklenti aracı olan Kutools for Excel ile yinelenen satırları kolayca ve hızlıca birleştirebilir, ardından başka bir sütundaki değerleri toplayabilirsiniz.
1. Kullanmak istediğiniz veriyi seçin ve Kutools > Birleştir ve Ayır > Gelişmiş Satırları Birleştir seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Açılan iletişim kutusunda, diğer sütunları ona göre birleştirmek istediğiniz sütunu seçin ve Birincil Anahtar'a tıklayın; ardından başka bir sütuna tıklayıp Hesapla'ya tıklayın ve listeden Toplam'ı seçin.
İpucu: Aralık seçiminizde başlıklar varsa, Başlıkları içerir seçeneğini işaretleyin; ayrıca Biçimlendirilmiş değerleri kullan seçeneğini işaretlemek, birleştirme sonrası biçimlendirmeyi koruyacaktır.
3. Ardından Tamam'a tıklayın. Artık veriler birincil sütuna göre birleştirilmiş ve diğer sütundaki değerler toplanmıştır. Ekran görüntüsüne bakın:
Bir sütuna göre satırları birleştirin ve “Gelişmiş Satırları Birleştir” ile diğer sütunlarda farklı işlemleri gerçekleştirin.
Gelişmiş Satırları Birleştir özelliği güçlüdür; çünkü yalnızca bir sütundaki yinelenen satırları birleştirip başka bir sütundaki değerleri toplamakla kalmaz, aynı zamanda yinelenen satırları birleştirirken diğer sütunlarda farklı işlemleri de gerçekleştirebilir.
Aşağıdaki ekran görüntüsünde gösterildiği gibi bir veri aralığım olduğunu ve A Sütununa göre B Sütunundaki değerleri birleştirmek, C Sütunundaki değerleri ise toplamak istediğimi varsayalım.
Kutools for Excel – Excel için 300’den fazla vazgeçilmez araçla donatılmış! İşlerinizi daha hızlı, daha kolay ve çok daha verimli hale getirin.Hemen indirin!
1. Veri Seç aralığını seçin ve Kutools > Birleştir ve Ayır > Gelişmiş Satırları Birleştir seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Satırları Birleştir Sütuna Göreiletişim kutusunda şu adımları izleyin:
(1) Birleştirmeye dayanmak istediğiniz sütuna tıklayın ve Birincil Anahtar'a tıklayın;
(2) Verilerini birleştirmek istediğiniz sütuna tıklayın ve Birleştir'e tıklayın, ardından listeden ihtiyacınız olan ayırıcıyı seçin;
(3) Değerlerini toplamak istediğiniz sütuna tıklayın, ardından Hesapla’ya tıklayıp Toplam’ı seçin.
3. Tamam'a tıklayın. Artık sonucu aşağıdaki gibi görebilirsiniz:
Gelişmiş Satırları Birleştir özelliğiyle, bir sütuna göre satırları birleştirmenin yanı sıra diğer sütunlarda sayma, ortalama alma ya da ilk ve son veriyi saklama gibi işlemleri de kolayca gerçekleştirebilirsiniz.
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