Cómo realizar operaciones de intervalo en VBA

Sub eg()

Dim myArr(1 To 100, 1 To 2) 'Definir matriz

Dim I As Integer, R Como entero

Para I = 1 a 100 'Asigne un valor a la matriz

myArr(I, 1) = Range("A" amp; I).Value

myArr(I, 2) = Range("B" amp; I).

Siguiente

R = 100 'Asignar un valor a la constante

For I = 1 To 100 'Asigne un valor al rango usando una constante de matriz

Range("A" amp; I 100).Value = myArr(I, 1) R

Range("B" amp; I 100).Value = myArr(I, 2) R

Siguiente

End Sub

Más fácil de usar rangos

Rellenar fórmula: Rango("A101:B200").FormulaR1C1 = "=R[-100]C " amp 10

Usar anulación de valor: Rango("A101) :B200").Valor = Rango(" A101：B200").Valor