vba 如何实现让单元格自动+1

Dim i As Long
Range("a1") = 1
For i = 2 To 10
Range("ai") = Range("a[i-1]") + 1
Exit For
Next i
这我编写的
不知道错在哪里了

你是不是要给a1:a10自动填充序号？
如果是，参考如下代码：
'**************************************
'使用Cells属性引用单元格

'语法：Cells(RowIndex, ColumnIndex)
'参数Row Index是可选的，表示引用区域中的行序号
'参数Column Index是可选的，表示引用区域中的列序号
Sub icell()
Dim i As Integer
For i = 1 To 10
Sheet1.Cells(i, 1).Value = i
Next i
End Sub
'*****************************************
如果你一定要使用range属性
请注意语法
Range("ai") 建议用Range（"A" & i)

1、引用工作表函数，如楼上所说 2、遍历，如：     dim rng as range,isum& for each rng in range("a1:b10")     if isnumeric(rng.value) then isum=isum+rng.value next rng