Como acelerar no Excel a plotagem de valores em células, usando o VBA?

Question

Um exemplo para objetivar a pergunta:

Abra uma nova pasta em branco no Excel.
Clique com o botão direito do mouse em plan1.
Selecione "Exibir Código"
Cole o trecho de código abaixo:

Sub teste()
For x = 1 To 10
Range("A" & x) = x
Next x
End Sub

Execute a sub-rotina.
Ela vai inserir os valores de 1 a 10 nas células do intervalo "A1" a "A10" da planilha ativa (plan1).

Notaram como a inserção de valores nas células é lenta?
Existe uma outra maneira mais rápida de fazer isso?
Obrigado,
Átila

Answer 1

Olha, eu reproduzi essa rotina no meu micro e o resultado foi instantâneo. Prá me assegurar, aumentei o laço para 1000 e, mesmo assim, o preenchimento foi imediato. Talvez o seu micro esteja com algum problema que cause lentidão. Meu micro é um Pentium 4, com clock de 2.4GHz e memória RAM de apenas 256MB. Será que não é a configuração de seu micro?
Abraço!

P.S.: Fiz um teste aumentando o laço e inserindo um contador de tempo e obtive os seguintes resultados:
- laço até 1.000 = 1 segundo
- laço até 5.000 = 2 segundos
- laço até 1.0000 = 4 segundos
- laço até 20.000 = 8 segundos
- laço até 65.000 = 25 segundos