Página 1 de 1

Somar e mesclar ao mesmo tempo

Enviado: 11 Jun 2021 às 15:07
por Feberlim
Boa tarde a todos.

Pode parecer ser algo simples mas estou um pouco perdido.

Gostaria de, por exemplo, mesclar uma coluna e ela me dar, como resultado final, uma somatória. Ex.: célula A1 tem valor 4, A2 tem 3, A3 tem 5, A4 tem 7. Aí mesclo todas, fica uma só e o valor total fica 19.

Não estou conseguindo fazer isso aqui. Se alguém souber um vídeo de como fazer isso ou um outro tópico, fico agradecido.

Minha primeira vez na comunidade.

Abs.

Re: Somar e mesclar ao mesmo tempo

Enviado: 11 Jun 2021 às 19:51
por osvaldomp
Olá, @Feberlim .

Se você quiser experimentar uma solução via macro, seguem duas opções.

A primeira mescla A1:A4, seguindo o seu exemplo .

A segunda mescla as células selecionadas manualmente, ou seja, selecione manualmente células adjacentes (aceita múltiplas linhas e ou múltiplas colunas) e rode a macro.
Código: Selecionar todos
Sub SomaEMesclaA1A4()
 Dim s As Double
  Application.DisplayAlerts = False
  With Range("A1:A4")
   s = Application.Sum(.Value)
   .Merge
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlCenter
   .Value = s
  End With
End Sub
#
Código: Selecionar todos
Sub SomaEMesclaSeleção()
 Dim s As Double
  Application.DisplayAlerts = False
  With Selection
   s = Application.Sum(.Value)
   .Merge
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlCenter
   .Value = s
  End With
End Sub