Veja como usar uma macro para preencher um intervalo de células com uma fórmula de sua escolha
Ao copiar ou usar a função Preenchimento automático, o Excel oferece muitas opções para transferir fórmulas de uma célula para um intervalo de células. Mas como fazer isso por meio de uma macro?
Isso é particularmente útil se você deseja criar tabelas ou listas automaticamente usando uma macro. Aqui, você precisa encontrar uma maneira de preencher as células com fórmulas.
A figura a seguir mostra uma lista de números comerciais. Você deseja adicionar funções de soma na coluna D desta lista com as quais os valores das colunas A, B e C são adicionados.
Use uma macro VBA para fazer este trabalho. Primeiro, abra a pasta de trabalho na qual deseja incluir a macro. Em seguida, pressione a combinação de teclas ALT F11 para iniciar o editor VBA. Em seguida, selecione a função INSERT - MODULE. Em seguida, insira a seguinte macro:
Sub SummenPerMakro ()
Dim Cell As Range
Dim Nr enquanto
Para cada célula em ActiveSheet.Range ("d2: d10")
Não = Cell.Row
Cell.FormulaLocal = "= SUM (A" & Nr & ": C" & Nr & ")"
Próxima célula
End Sub
O Marko processa o intervalo de células D2: D10 na planilha ativa. As células são enroladas célula por célula. A macro usa a propriedade FORMULALOCAL para inserir uma fórmula de soma em cada uma dessas células.
Nesta fórmula, as áreas adicionadas são ajustadas em cada linha. Na linha 2 é A2: C2, na linha 3 é A3: C3 etc.
A fórmula faz isso usando a variável NR para consultar o número da linha atual dentro do loop usando a propriedade ROW. A macro então compõe gradualmente a fórmula de soma dos componentes de texto individuais.
A figura a seguir mostra o resultado após iniciar a macro. Para começar, use a combinação de teclas ALT F8 no Excel e selecione a macro SUMMENPERMAKRO.
Existem outras maneiras de fazer o trabalho por meio de uma macro. Uma variante é usar a macro para inserir a fórmula em apenas uma célula e, em seguida, copiá-la para que o Excel possa ajustar as referências independentemente.