Cum se sumează valorile celulei dintr-o coloană până la atingerea celulei goale?
Dacă aveți o listă de numere care sunt populate cu unele celule goale și acum, trebuie să însumați numerele de mai sus sau de mai jos până la celulele goale din această listă pentru a obține următoarele rezultate. Aveți vreo modalitate rapidă sau ușoară de a rezolva acest job în Excel?
Suma valorilor celulei de mai sus până la celula necompletată
Suma valorilor celulei de mai jos până la celula necompletată
Sumați valorile celulei de mai jos până la celulele goale cu formula matricei
Sumați valorile celulei de mai sus până la celulele goale cu codul VBA
Sumați valorile celulei de mai jos până la celulele goale cu formula matricei
Pentru a însuma valorile celulei de mai jos până la goluri, iată o formulă matrice, vă rugăm să procedați astfel:
1. Introduceți această formulă într-o celulă goală lângă coloana numerelor dvs., E1, De exemplu.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 sunt primele două celule din coloana ta, D17 este ultima celulă goală din coloana numerică).
2. Apoi apăsați Ctrl + Shift + Enter tastele împreună, apoi glisați mânerul de umplere în jos în celulele pe care doriți să le însumați mai jos până la goluri, vedeți captura de ecran:
Sumați valorile celulei de mai sus până la celulele goale cu codul VBA
Dacă trebuie să însumați valorile celulei de mai sus până la celulele goale, următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Suma valorilor celulei de mai sus până la goluri:
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. Apoi apăsați F5 tasta pentru a rula acest cod și se afișează o casetă de solicitare pentru a vă reaminti să selectați gama de celule pe care doriți să le însumați până la celulele goale, vedeți captura de ecran:
4. Apoi apasa OK buton, toate valorile celulei de deasupra celulelor goale au fost adăugate după cum se arată în următoarea captură de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
