Ana içeriğe atla

Boş hücreye ulaşana kadar bir sütundaki hücre değerleri nasıl toplanır?

Yazar: Xiaoyang Son Değiştirilme Tarihi: 2020-07-17

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ş 1'e kadar doc sum

Boş hücreye kadar aşağıdaki hücre değerlerini toplamı

boş 2'e kadar doc sum

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


ok mavi sağ balon 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:

boş 3'e kadar doc sum


ok mavi sağ balon 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:

boş 4'e kadar doc sum

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:

boş 5'e kadar doc sum

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The formula doesn't work for me. It gives me an error in the part (A1:A100=""), it tells me false in that step
This comment was minimized by the moderator on the site
Como adicionar negrito no resultado?
This comment was minimized by the moderator on the site
tükçe kod olsaydı iyiydi...
This comment was minimized by the moderator on the site
How to Sum Cell Values Below Until Blank Cells With VBA Code
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations