设置超出传递范围的单元格值

Question

因此，我在VBA中尝试做的是设置超出我当前建立范围的单元格的值。但是当我尝试时，我得到的公式中使用的值是错误的数据类型＆＃34;。

咦？这是代码：

Function TestWrite(rng As Range)

    Dim coladd As Integer
    coladd = 0

    For i = 1 To 5
        rng.Item(1 - 1, 1 + colladd).Value = i
        coladd = coladd + 1
    Next i

End Function

现在，我知道这很简单。真正的问题是相当大的问题。但是，当我把它分解成所有它多汁的块时，这就是我无法工作的部分。

TIA！