Hvordan summeres celleværdier i en kolonne, indtil den tomme celle nåede?
Hvis du har en liste over tal, der er udfyldt med nogle tomme celler, og nu skal du sammenfatte tallene over eller under, indtil tomme celler på denne liste får de følgende resultater. Har du nogen hurtige eller nemme måder at løse dette job på i Excel?
Sum celleværdier ovenfor indtil tom celle
Sum celleværdier nedenfor indtil tom celle
Sum celleværdier nedenfor indtil tomme celler med matrixformel
Sum celleværdier ovenfor indtil tomme celler med VBA-kode
Sum celleværdier nedenfor indtil tomme celler med matrixformel
For at opsummere celleværdier nedenfor indtil tomme, her er en matrixformel, gør venligst som denne:
1. Indtast denne formel i en tom celle ved siden af din talekolonne, E1, for eksempel.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 er de første to celler i din kolonne, D17 er den sidste tomme celle i talekolonnen).
2. Tryk derefter på Ctrl + Skift + Enter nøgler sammen, og træk derefter fyldhåndtaget ned til cellerne, som du vil sammenfatte numrene nedenfor, indtil de er tomme, se skærmbillede:
Sum celleværdier ovenfor indtil tomme celler med VBA-kode
Hvis du har brug for at summere celleværdier ovenfor indtil tomme celler, kan følgende VBA-kode muligvis gøre dig en tjeneste.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Sum celleværdier ovenfor indtil tomme felter:
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. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vises for at minde dig om at vælge det celleområde, som du vil summere celler ovenfor, indtil tomme celler, se skærmbillede:
4. Klik derefter på OK knappen, er alle celleværdier over tomme celler blevet tilføjet som følgende skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!