Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2004-12-20
Exemplo de preenchimento de células com os valores contidos em Arrays:



Código:

Sub Preencher()
    Sheets("Sheet1").[A1:A5] = _
    WorksheetFunction.Transpose(Array(1, 2, 3, 4, 5))
    Sheets("Sheet1").[B1:B5] = _
    WorksheetFunction.Transpose(Array(6, 7, 8, 9, 10))
    Sheets("Sheet1").[C1:C5] = _
    WorksheetFunction.Transpose(Array(11, 12, 13, 14, 15))
End Sub