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

来源：百度知道 编辑：UC知道 时间：2024/05/06 02:02:03
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)

Range("a[i-1]") 这里错了