Automatizando a Inserção de Linhas no Excel com Macros
Os aplicativos do MS Office são notavelmente bem projetados, facilitando muito o trabalho. A inteligência por trás deles é evidente na maneira como funcionalidades são implementadas, focando em oferecer apenas o que é essencial para cada tipo de aplicativo. Por exemplo, enquanto o Excel permite inserir linhas em uma planilha, ele não oferece a opção direta de selecionar o número de linhas a serem adicionadas. É preciso recorrer a soluções alternativas, como selecionar um número de linhas existentes e usar a função de inserção, ou repetir o comando de inserir linha várias vezes. Embora essas alternativas funcionem, podem ser repetitivas. Uma macro simples pode automatizar essa tarefa, economizando tempo e esforço.
Para utilizar uma macro, é necessário salvar o arquivo como um arquivo Excel habilitado para macro. No menu suspenso “Salvar como tipo” na janela de salvar, selecione “Pasta de trabalho habilitada para Excel Macro (*.xlsm)”.
O próximo passo é criar a macro. Na guia “Exibir”, clique em “Macros” para criar uma nova. Dê um nome à macro e clique em “Criar”. Uma nova janela será aberta.
As linhas “Sub” e “End Sub” são as mais importantes aqui. A linha “Sub” contém o nome da macro, enquanto “End Sub” marca o final dos comandos da macro. Inicialmente, não haverá nada entre essas linhas. Insira o seguinte código entre essas duas linhas:
Dim CurrentSheet As Object
' Loop através de todas as folhas selecionadas.
For Each CurrentSheet In ActiveWindow.SelectedSheets
' Insere 5 linhas no topo de cada folha.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Este código insere cinco linhas a partir do topo. No código, isso é referenciado como A1:A5. Para adaptá-lo às suas necessidades, é preciso editar este intervalo. O primeiro valor serve como referência para o local onde as linhas serão inseridas. Se alterar para A100, as linhas serão inseridas após as primeiras 99 linhas. Após definir o ponto de referência, é preciso inserir o número de linhas.
O número de linhas é definido pelo intervalo de células A1:A5. Este intervalo insere 5 linhas. Para encontrar o intervalo correto, se você deseja inserir 25 linhas a partir de A99, adicione 25 ao ponto de referência. Portanto, A100 + 99 – 1 = A198. Como você está adicionando linhas e não colunas, apenas o número mudará e não a letra da coluna. A macro precisa ser atualizada sempre que inserir linhas agrupadas, mas é uma edição pequena e funciona muito bem, compensando o tempo gasto.