Estrutura "For" em VBA para Excel

[BRB]

Boa Tarde,

Gostaria de saber como é possível tratar a planilha do excel como um Array bidimensional.

Por exemplo: Gostaria de usar um "for" que percorresse a planilha da célula A1 até a célula

A"N", sendo N uma variáve do tipo integerl.

O VBA permite esta ação?

Obrigado,

Bruno.

[MRMB]

BRB,

Sim é possivel. Abaixo um exemplo de comando "for".

Sub Macro1()

    Dim iLinha As Integer
    Dim Qtde As Integer
    Dim ValorCel As Integer        
    
    Qtde = 5 ' define a quantidade de linhas a percorrer na planilha.
    
    For iLinha = 2 To Qtde ' iLinha igual a dois para desconsiderar os títulos das colunas caso exista.
    
        ValorCel= Plan1.Cells(iLinha, 1).Value
        Plan1.Cells(iLinha, 2).Value = ValorCel       
        Plan1.Cells(iLinha, 3).Value = "OK"
     
    Next iLinha
    
    MsgBox "Fim"
    
End Sub

Abaixo código com linhas e colunas.

Sub Macro2()

    Dim iLinha As Integer
    Dim iColuna As Integer
    Dim Qtde As Integer
    Dim ValorCel As Integer
    
    Qtde = 5 ' define a quantidade de linhas a percorrer na planilha.
    QtdeCol = 5 ' define a quantidade de colunas a percorrer na planilha.
    
    For iLinha = 2 To Qtde ' iLinha igual a dois para desconsiderar os títulos das colunas caso exista.
        
        For iColuna = 1 To QtdeCol
            
            Plan1.Cells(iLinha, iColuna).Value = "OK"
            
        Next iColuna
        
    Next iLinha
    
    MsgBox "Fim"
    
End Sub

Editado Agosto 2, 2011 por Crispim