VBA代码填充增量为0.1的单元格

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim increment As Double
    
    ' 检查更改的单元格是否在指定的范围内
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        ' 设置增量值
        increment = 0.1
        
        ' 循环遍历更改的单元格
        For Each cell In Target
            ' 检查单元格是否为空
            If Not IsEmpty(cell) Then
                ' 增加增量值到单元格的当前值
                cell.Value = cell.Value + increment
            End If
        Next cell
    End If
End Sub