5.2. Criando Arrays Bidimensionais

5.2.1. Array padrão (Sem Loop)

                 Agora, vamos criar um código, sendo mais específicos, determinando o número de linhas, o que tornará mais fácil a inserção dos dados na planilha, já que o VBA entenderá que as informações devem entrar nas mesmas linhas que determina o array, sempre na 1ª coluna, dispensando a criação de um loop para isto.

Sub CopaLin2014()

'neste caso, declaramos 3 linhas

Dim PaisCopa(1 To 3, 1 To 1) As String      '1º. declaramos um array bidimensional com 3 posições

Set ShtArray = Sheets("Array")      'Declaramos a plan Array que receberá os valores do array

'Atribuímos valores a cada posição do array

ShtArray.Select

PaisCopa(1,1) = "Brasil"             'Brasil será inserido na linha 1

PaisCopa(2,1) = "Olanda"              'Olanda na linha 2

PaisCopa(3,1) = "Alemanha"            'E Alemanha na linha 3

ShtArray.Range("A1:A3") = PaisCopa  'insere as informações do array na planilha

End Sub

                 Se você rodar este código, os países serão inseridos diretamente na planilha, sem a necessidade de um loop.

Para acessar o curso completo Clique aqui