Question

excel vba编程：运行一次，a1=1，第二次，a2=2。。。。

如题所示，程序运行第一次，a1=1，第二次，a2=2，，，，一直到a10=10。我自己编的不能实现一次填一格，运行一次a1到a10就填满了，求助！

Answer 1

其实你已经举得差不多了，下面的也只是变形：
range(cells(1,1),
cells(100,1))
如果获取a1周围一块的空间，可以：
range("a1").currentregion
如果获取表内所有使用区域，可以：
activesheet.usedrange

Answer 2

Sub 运行一次()
Dim x&
x = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Range("a1") = "" Then
Range("a1") = 1
Exit Sub
ElseIf x > 10 Then
Exit Sub
ElseIf Range("a1") = 1 Then
Range("a" & x) = x

End If
Exit Sub
End Sub

Answer 3

代码如下：

Sub aaa()
    Cells(Range("A65536").End(xlUp) + 1, 1).Value = Range("A65536").End(xlUp).Value + 1
End Sub

追问

谢谢回复。试了下可以实现功能，只是完全看不懂。我的想法是让a1等于b1（b1是某个计算结果），，运行这个代码保留每次的计算结果。。。所以试着改了一下实现不了。。请问能帮忙改一下吗，谢谢！

追答

改成：

Sub aaa()
    Cells(Range("A65536").End(xlUp) + 1, 1).Value = Range("A65536").End(xlUp).Value + Cells(1, 2).Value
End Sub