[已解决]自动填充序列的语句

chensir

各位好，比如我    B1：B100要填充1、2、3\......99、100的等差序列
               求VBA语句

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-15 16:59

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 2) = i - 1
        Next
    End If
End Sub

跳转到最佳答案楼层

su45

既然B1:B10随着A列变动，那就在B列输入公式就行了，用VBA太没劲了！

zjdh

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 2) = i - 1
        Next
    End If
End Sub