VBA循环中的ColumnOffset无法正常工作

Question

尝试使用简单的Do while循环遍历一组列，并将上面三行的单元格值添加到集合中，直到表结束。

Function test()

Dim r As Range, first As Range, coll As New Collection, ab As String

Set r = Range("H14")

Do While r <> ""
    coll.Add r.Offset(RowOffSet:=-3).Value
    r = r.Offset(ColumnOffSet:=1)
Loop

End Function

由于某种原因，ColumnOffset不起作用。没有错误，但是当我检查locals窗口中的值时，列没有改变，并且循环只在该列上重复，然后它显然崩溃了。如果我用RowOffset替换它，它完全正常。