Referência Técnica

Guia Rápido de Comandos VBA

Dicionário prático com os comandos e receitas mais utilizados no dia a dia da programação VBA no Microsoft Excel. Clique no botão para copiar diretamente para sua área de transferência.

Última LINHA preenchida da Coluna A Linhas & Colunas

ultimaLinha = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Última COLUNA preenchida da Linha 1 Linhas & Colunas

ultimaColuna = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Excluir uma Linha inteira Linhas & Colunas

Rows(2).Delete 'Exclui toda a linha 2. As linhas abaixo irão subir

Excluir uma Coluna inteira Linhas & Colunas

Columns("A").Delete 'Exclui a coluna A. As colunas à direita se deslocam para a esquerda

Inserir uma nova Linha Linhas & Colunas

Rows(4).Insert 'Insere uma linha na posição da Linha 4

Inserir uma nova Coluna Linhas & Colunas

Columns("B").Insert 'Insere uma coluna a partir da coluna B

Selecionar Célula ou Intervalo Células & Dados

Range("B3").Select
Range("A1:A10").Select

Ler valor de Célula para Variável Células & Dados

Dim valor
valor = Range("B3").Value 'Lê o conteúdo da célula B3 e salva na variável "valor"

Escrever valor em uma Célula Células & Dados

Range("C3").Value = 10 'Escreve o valor 10 dentro da célula C3

Copiar valor da Célula selecionada Células & Dados

Range("B3").Select
Selection.Copy

Copiar e Colar Célula ou Intervalo Células & Dados

Range("A1").Copy Range("B1") 'A1 é copiado e B1 é o destino

Recortar e Colar Célula ou Intervalo Células & Dados

Range("A1").Cut Range("B1") 'A1 é recortado e colado em B1

Inserir Fórmula na Célula (FormulaLocal) Células & Dados

Range("F2").FormulaLocal = "=SOMA(F4:F18)"

Selecionar uma Planilha pelo Nome Planilhas & Abas

Sheets("Planilha1").Select

Criar nova Planilha na Pasta de Trabalho Planilhas & Abas

Worksheets.Add.Name = "Calculos" 'Cria uma nova planilha chamada "Calculos"

Excluir Planilha sem Alertas de Confirmação Planilhas & Abas

Application.DisplayAlerts = False 'Desliga o alerta de confirmação ao deletar
On Error Resume Next              'Continua caso ocorram erros
Worksheets("Calculos").Delete     'Exclui a Planilha chamada "Calculos"
Application.DisplayAlerts = True  'Reativa os alertas de confirmação

Limpar conteúdo e formatação de intervalo Planilhas & Abas

Range("A2:D100").ClearContents 'Limpa apenas os valores
Range("A2:D100").Clear         'Limpa valores, bordas e formatações

Criar uma Nova Pasta de Trabalho (Workbook) Pastas de Trabalho

Sub AddNew()
    Dim NewBook As Workbook
    Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"   'Título
        .Subject = "Sales"     'Assunto
        .SaveAs Filename:="Allsales.xls"
    End With
End Sub

Endereço / Caminho da Pasta de Trabalho Atual Pastas de Trabalho

Dim endereco As String
endereco = ActiveWorkbook.Path 'Ex: C:\Users\Documentos

Salvar a Pasta de Trabalho Atual Pastas de Trabalho

ActiveWorkbook.Save

Salvar Como a Pasta de Trabalho Atual Pastas de Trabalho

Dim NovoNome As String
NovoNome = "Calculos"
ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & NovoNome & ".xls" 'Salva como novo arquivo

Caixa de Mensagem (MsgBox) Interação com Usuário

MsgBox "Verifique os valores digitados!", vbOKOnly, "Atenção"
'Sintaxe: MsgBox MENSAGEM, BOTÕES, TÍTULO

Caixa de Entrada de Dados (InputBox) Interação com Usuário

Dim nome
nome = InputBox("Qual é o seu nome?", "Nome") 'Permite usuário escrever na caixa de input

Acelerar execução da Macro (Desativar tela) Desempenho & Telas

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

' ... SEU CÓDIGO AQUI ...

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True