Como somar os valores das células em uma coluna até atingir a célula em branco?
Se você tem uma lista de números preenchida com algumas células em branco, e agora, você precisa somar os números acima ou abaixo até as células em branco nesta lista para obter os seguintes resultados. Você tem alguma maneira rápida ou fácil de resolver esse trabalho no Excel?
Some os valores das células acima até a célula em branco
Some os valores das células abaixo até a célula em branco
Some os valores das células abaixo até as células em branco com a fórmula de matriz
Some os valores das células acima até as células em branco com o código VBA
Some os valores das células abaixo até as células em branco com a fórmula de matriz
Para somar os valores das células abaixo até os espaços em branco, aqui está uma fórmula de matriz, faça o seguinte:
1. Insira esta fórmula em uma célula em branco ao lado da coluna de números, E1, por exemplo.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 são as duas primeiras células em sua coluna, D17 é a última célula em branco na coluna de número).
2. Então aperte Ctrl + Shift + Enter juntas e, em seguida, arraste a alça de preenchimento para baixo até as células que você deseja somar os números abaixo até os espaços em branco, consulte a captura de tela:
Some os valores das células acima até as células em branco com o código VBA
Se você precisar somar os valores das células acima até as células em branco, o seguinte código VBA pode lhe fazer um favor.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: some os valores das células acima até os espaços em branco:
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. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de células que deseja somar as células acima até as células em branco, veja a captura de tela:
4. Então clique OK botão, todos os valores da célula acima das células em branco foram adicionados conforme a seguinte captura de tela mostrada:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!