Ir para o conteúdo principal

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

soma doc até em branco 1

Some os valores das células abaixo até a célula em branco

soma doc até em branco 2

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


seta azul bolha direita 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:

soma doc até em branco 3


seta azul bolha direita 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:

soma doc até em branco 4

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:

soma doc até em branco 5

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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

Descrição


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!
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations