Hogyan lehet összegezni az oszlop cellájának értékeit, amíg el nem éri az üres cella?
Ha van egy listája olyan számokkal, amelyek üres cellákkal vannak feltöltve, most meg kell összegeznie a fenti vagy alatti számokat, amíg üres cellák lesznek ebben a listában, hogy megkapja a következő eredményeket. Van valami gyors vagy egyszerű módja ennek a feladatnak az Excelben történő megoldására?
A fenti cellák értékeit összegezzük üres celláig
Az alábbi cellák értékeit összegezze üres celláig
Összegezze az alábbi cellák értékeit üres cellákig tömbképlettel
Összegezze a fenti cellák értékeit, amíg üres cellák vannak VBA kóddal
Összegezze az alábbi cellák értékeit üres cellákig tömbképlettel
Az alábbi cellaértékek üres helyekig történő összegzéséhez itt egy tömbképlet, kérjük, tegye a következőket:
1. Írja be ezt a képletet egy üres cellába a számok oszlop mellett, E1, Például.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 az oszlop első két cellája, D17 a szám oszlop utolsó üres cellája).
2. Ezután nyomja meg a gombot Ctrl + Shift + Enter gombokat együtt, majd húzza lefelé a kitöltő fogantyút azokhoz a cellákhoz, amelyekben az összes számot összegezni szeretné, amíg üresek nem lesznek, lásd a képernyőképet:
Összegezze a fenti cellák értékeit, amíg üres cellák vannak VBA kóddal
Ha a fenti cellaértékeket üres cellákig kell összegeznie, a következő VBA-kód kedvezhet Önnek.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: A fenti cellaértékek összegzése üres helyekig:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra a cellatartomány kiválasztására, amelyen a fenti cellákat összegezni szeretné, amíg üres cellák nem lesznek, lásd a képernyőképet:
4. Ezután kattintson OK gombra, az üres cellák fölötti összes cellaérték összeadásra került a következő képernyőkép szerint:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!