Bir sütundaki hücre değerleri, boş bir hücreye ulaşılana kadar nasıl toplanır?
Boş hücreler içeren bir sayı listesiniz varsa ve bu listede her boş hücreye kadar üstteki veya alttaki sayıları toplayarak aşağıdaki sonuçları elde etmeniz gerekiyorsa, Excel’de bunu yapmak için hızlı ve kolay bir yönteminiz var mı?
Boş hücreye kadar üstteki hücre değerlerini topla
Boş hücreye kadar alttaki hücre değerlerini topla
Dizi formülüyle boş hücrelere kadar alttaki hücre değerlerini topla
VBA koduyla boş hücrelere kadar üstteki hücre değerlerini topla
Dizi formülüyle boş hücrelere kadar alttaki hücre değerlerini topla
Alttaki hücre değerlerini boşlara kadar toplamak için aşağıda bir dizi formülü bulunmaktadır; lütfen şu şekilde yapın:
1. Bu formülü, sayılar sütununuzun yanındaki boş bir hücreye (örneğin)E1) girin.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1 ve D2, sütununuzdaki ilk iki hücredir; D17 ise sayı sütunundaki son boş hücredir).
2. Ardından Ctrl + Shift + Enter tuşlarına birlikte basın ve ardından doldurma tutamacını, boşluklara kadar alttaki sayıları toplamak istediğiniz hücrelere doğru aşağı sürükleyin; ekran görüntüsüne bakın:
VBA koduyla boş hücrelere kadar üstteki hücre değerlerini topla
Üstteki hücre değerlerini boş hücrelere kadar toplamanız gerekiyorsa, aşağıdaki VBA kodu işinizi kolaylaştırabilir.
1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Boşlara kadar üstteki hücre değerlerini topla:
Sub InsertTotals()
'Updateby Extendoffice
Dim xRg As Range
Dim i, j, StartRow, StartCol As Integer
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.AddressLocal
Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
StartRow = xRg.Row
StartCol = xRg.Column
For i = StartCol To xRg.Columns.Count + StartCol - 1
For j = xRg.Row To xRg.Rows.Count + StartRow - 1
If Cells(j, i) = "" Then
Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
StartRow = j + 1
End If
Next
StartRow = xRg.Row
Next
End Sub
3. Ardından F5 tuşuna basarak bu kodu çalıştırın; boş hücrelere kadar üstteki hücreleri toplamak istediğiniz hücre aralığını seçmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; boş hücrelerin üstündeki tüm hücre değerleri aşağıdaki ekran görüntüsünde gösterildiği gibi toplanmıştır:
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