Escrevendo a uma tabela utilizando o Visual Basic for Applications no Microsoft Excel não é tão complicado como você pode pensar. VBA é uma linguagem de programação de computadores usados ​​em aplicativos do Microsoft Office para automatizar tarefas rotineiras. No VBA , você pode usar o método " ListObjects.Add " para criar uma nova tabela na planilha. Use o método "Range " para adicionar valores para a sua mesa , usando os valores de colunas e linhas da planilha. Instruções
1

Abra o Microsoft Excel. Clique na guia "Desenvolvedor" , e selecione " Visual Basic ". Clique no menu "Inserir" e escolha a opção " Módulo " para inserir um novo módulo de código VBA
2

Adicione o seguinte código para criar um novo procedimento sub: .

Sub createAndPopulateTable ()
3

Criar duas variáveis ​​que você vai usar para gravar dados para a tabela:

Dim oSh Como Planilha

Set oSh = ActiveSheet

4

Criar a tabela com cinco linhas , usando colunas B , C e D :

ActiveSheet.ListObjects.Add ( xlSrcRange , Range (" $ B $ 1: $ D $ 5" ) , xlYes ) . Name = _

" MyTable " TableStyle = " TableStyleLight2 "
5

ActiveSheet.ListObjects ( " myTable " ) . Copie e cole o seguinte código VBA para gravar dados em sua tabela : . .

oSh.Range ( "B2" ) Valor = 1

oSh.Range ( "C2" ) Valor = 1

oSh.Range ( " D2 " ) . Valor = 1

oSh.Range ( " B3 " ) . Value = 2

oSh.Range ( "C3" ) . Value = 2

oSh.Range ( " D3 " ) . Value = 2

oSh.Range ( " B4 " ) . Valor = 3

oSh.Range ( "C4 " ) . valor = 3

oSh.Range ( " D4 " ) . valor = 3

oSh.Range ( " B5 " ) . value = " row valor 4"

oSh . Range (" C5 " ) Valor = " linha 4 o valor "

oSh.Range ( " D5 " ) Valor = " linha 4 o valor "

oSh.Range ( " B6 " . . ) . Valor = 5

oSh.Range ( " C6 " ) . Valor = 5

oSh.Range ( " D6 " ) . Valor = 5
6

Finalize o procedimento digitando " End Sub ", como a linha final do código em seu módulo. Pressione " F5" para executar o procedimento .