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
Para acessar o curso completo Clique aqui