vba内存溢出怎么解决？

Question

Sub text()
Dim a As Byte
Dim q As Range
For i = 1 To 10 Step 1
a = 0 + i
Set q = Sheet1.Cells = Cells(a, 1) = a
Next
For i = 11 To 20 Step 1
a = 0 + i
Set q = Sheet1.Cells = Cells(a, 2) = a
Next
Stop
End Sub
运行这个代码时提示内存溢出，这个是什么原因？怎么改

Answer 1

set q=这句是什么情况？？
VBA似乎没有这种写法。
如果是多个赋值语句，拆分了写。
另，a=0+i ？？这句看不出是什么意思。
不直省略直接用i代替a