Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, insere um cabeçalho de coluna para formação de uma tabela simples.

Sub Inserindo_cabecalho_em_colunas()
Dim vArray As Variant 'variável insere dados vArray
Dim vContador As Integer

' variavel vArrays variant com array de dados
vArray = Array("", "Nome", "Endereço", "Bairro", "Cidade", "Estado", "Observaçoes")

'Inserindo o cabeçalho na folha de planilha(Plan2)
With Worksheets("Plan2")
For vContador = 1 To UBound(vArray)
.Cells(1, vContador).Value = vArray(vContador)
Next vContador
End With

End Sub

Observe que aqui usei uma linha de código para localizar todas as células usadas no cabeçalho, veja que End(xlToRight), localiza todas as células
à direita da célula (A1), clearcontents deleta os dados sem deletar os formatos.
Sub limpar_cabecalho()
Worksheets("Plan2").Select
Range("A1", [A1].End(xlToRight)).ClearContents
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba cabecalho macro insere cabecalho de tabela e deleta (24.57 kB)