vba 如何進行區域間的運算

Sub eg()

Dim myArr(1 To 100, 1 To 2) '定義數組

Dim I As Integer, R As Integer

For I = 1 To 100 '給數組賦值

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

myArr(I, 2) = Range("B" & I).Value

Next

R = 100 '給常量賦值

For I = 1 To 100 '用數組+常量給區域賦值

Range("A" & I + 100).Value = myArr(I, 1) + R

Range("B" & I + 100).Value = myArr(I, 2) + R

Next

End Sub

用range實現比較方便

填充公式：Range("A101:B200").FormulaR1C1 = "=R[-100]C+" & 10

用數值覆蓋：Range("A101:B200").Value = Range("A101:B200").Value