セルに数式を入れる

InputFormula.vbs

Public Sub InputFormula()
    Dim r As Range: Set r = Range(Cells(1, 6), Cells(20, 10))
    Dim c As Range
    
    Dim i As Integer: i = 101
    For Each c In r
        c = "=データ!A" & i
        i = i + 1
    Next c
End Sub