Boş hücreye ulaşana kadar bir sütundaki hücre değerleri nasıl toplanır?
Bazı boş hücrelerle doldurulmuş bir sayı listeniz varsa ve şimdi, aşağıdaki sonuçları almak için bu listedeki boş hücrelere kadar yukarıdaki veya altındaki sayıları toplamanız gerekir. Excel'de bu işi çözmenin hızlı veya kolay bir yolu var mı?
Boş hücreye kadar yukarıdaki hücre değerlerini toplamı
Boş hücreye kadar aşağıdaki hücre değerlerini toplamı
Dizi formülüyle boş hücrelere kadar aşağıdaki hücre değerlerini toplama
VBA kodlu boş hücrelere kadar yukarıdaki hücre değerlerini toplayın
Dizi formülüyle boş hücrelere kadar aşağıdaki hücre değerlerini toplama
Boşluklara kadar aşağıdaki hücre değerlerini toplamak için, işte bir dizi formülü, lütfen şu şekilde yapın:
1. Bu formülü sayılar sütununun yanındaki boş bir hücreye girin, E1, Örneğin.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 sütununuzdaki ilk iki hücre, D17 sayı sütunundaki son boş hücredir).
2. Daha sonra tuşuna basın. Ctrl + Üst Karakter + Enter anahtarları bir araya getirin ve ardından doldurma tutamacını boşluklara kadar aşağıdaki sayıları toplamak istediğiniz hücrelere sürükleyin, ekran görüntüsüne bakın:
VBA kodlu boş hücrelere kadar yukarıdaki hücre değerlerini toplayın
Yukarıdaki hücre değerlerini boş hücrelere kadar toplamanız gerekiyorsa, aşağıdaki VBA kodu size bir iyilik yapabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Boşluklara kadar yukarıdaki hücre değerlerini toplayın:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve yukarıdaki hücreleri boş hücrelere kadar toplamak istediğiniz hücre aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi, boş hücrelerin üzerindeki tüm hücre değerleri aşağıda gösterilen ekran görüntüsü gibi eklenmiştir:
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!