Satırları bir sütun değerine göre hızlı bir şekilde nasıl birleştirebilirim, ardından Excel'de bazı hesaplamalar yapabilirim?
Örneğin, bir veri aralığınız var ve bir sütunda yinelenenler var, şimdi satırları A sütununa göre birleştirmek (yinelemeleri var), ardından gösterilen ekran görüntüsü gibi birleştirilmiş satırlara dayanarak başka bir sütuna bazı hesaplamalar yapmak istiyorsunuz:
Excel'de, satırları bir sütun değerine göre birleştirmenin hızlı bir yöntemi yoktur, ancak burada
yinelenen satırları birleştirmenize ve ardından başka bir sütunda toplam veya başka hesaplamalar yapmanıza yardımcı olabilecek püf noktaları.
Satırları bir sütuna göre birleştirin ve ardından değerleri VBA ile toplayın
Bir VBA kodu var, yinelenen satırları birleştirmenize ve ardından başka bir sütun değerlerini toplamanıza yardımcı olabilir.
Birden çok Excel çalışma kitabını / Word belgesini Firefox, Chrome, Internet olarak sekmeli taramak ve düzenlemek Keşfet 10! |
Firefox / Chrome / IE'de birden çok web sayfasını görüntülemeye ve ilgili sekmelere kolayca tıklayarak aralarında geçiş yapmaya aşina olabilirsiniz. Burada Office Tab, tek bir Excel penceresinde veya Word penceresinde birden çok Excel çalışma kitabına veya Word belgesine göz atmanıza ve sekmelerine tıklayarak aralarında kolayca geçiş yapmanıza olanak tanıyan benzer işlemleri destekler. Ücretsiz tıklayın 30Office Tab'ın günlük deneme sürümü! |
1. Basın F11 + Alt etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere, ardından tıklayın Ekle > modül ve VBA kodunu kopyalayıp yenisine yapıştırın modül pencere.
VBA: Satırları bir sütun değerine göre birleştirin
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 Sub
2. Basın F5 veya tıklayın koşmak düğmesi VBA'yı çalıştırır ve çalışmak üzere bir veri aralığı seçmek için bir iletişim kutusu açılır. ekran görüntüsüne bakın:
3. Bir çalışma aralığı seçtikten sonra, tıklayın OK. Şimdi veriler ilk sütuna göre birleştirildi ve ikinci sütundaki değerleri topladı.
not: Bu VBA kodu, ilk sütuna ve ikinci sütundaki toplam değerlere göre birleştirirken doğru şekilde çalışabilir.
Satırları bir sütuna göre birleştirin ve ardından Advanced Combine Rows ile değerleri toplayın
VBA kodunu bilmiyorsanız, Gelişmiş Kombine Satırları üçüncü bölüm eklenti aracının özelliği - Kutools for Excel yinelenen satırları kolayca ve hızlı bir şekilde birleştirmek ve ardından başka bir sütundaki değerleri toplamak için.
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Kullanmak istediğiniz verileri seçin ve tıklayın Kutools > Birleştir ve Böl > Gelişmiş Kombine Satırları. Ekran görüntüsüne bakın:
2. Ardından, açılır iletişim kutusunda, diğer sütunları temel alarak birleştireceğiniz sütunu seçin ve ardından Birincil Anahtar ve başka bir sütunu tıklayın ve tıklayın Hesaplanmış Sonra seçin Toplam.
Bahşiş: Seçtiğiniz aralığın başlıkları varsa kontrol edin Verilerimin başlıkları varve kontrol et Biçimlendirilmiş değerleri kullanın biçimlendirmeyi birleştirdikten sonra koruyacak.
3. Sonra tıklayın Ok. Şimdi veriler birincil sütuna göre birleştirildi ve bir diğeri de toplandı. Ekran görüntüsüne bakın:
Satırları bir sütuna göre birleştirin ve ardından Advanced Combine Rows ile diğer sütunlarda farklı işlemler yapın.
Gelişmiş Kombine Satırları güçlüdür, çünkü yalnızca bir sütundaki yinelenen satırları birleştirip sonra başka bir sütunu toplayabilir, aynı zamanda bir sütundaki yinelenen satırları birleştirip diğer sütunlarda farklı işlemler yapabilir.
Aşağıda gösterilen ekran görüntüsü gibi bir veri aralığım olduğunu varsayalım ve hem Sütun B'deki değerleri birleştirmek hem de Sütun C'deki değerleri Sütun A'ya göre toplamak istiyorum.
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Veri aralığını seçin ve tıklayın Kutools > Birleştir ve Böl > Gelişmiş Kombine Satırları. Ekran görüntüsüne bakın:
2. içinde Sütuna Göre Satırları Birleştirme diyalog, şunları yapın:
(1) Temel olarak birleştirmek istediğiniz sütuna tıklayın ve Birincil anahtar;
(2) Verileri birleştirmek istediğiniz sütuna tıklayın ve Birleştirmek, ardından listeden ihtiyacınız olan bir ayırıcı seçin;
(3) Değerleri toplamak istediğiniz sütuna tıklayın ve HesaplanmışSeçin ve Toplam.
3. tık Ok. Şimdi sonucu aşağıdaki gibi görebilirsiniz:
İle Gelişmiş Kombine Satırları özelliği, ayrıca bir sütuna göre satırları birleştirebilir ve ardından diğer sütunlarda 1. veya son verileri sayabilir, ortalayabilir, tutabilirsiniz.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!