Question

excel中如何实现在指定区域中输入数值后自动除以某一个固定的数值。不用辅助列，用VBA

以下是我在网上找的答案，但是是指定整列的，如何指定某一区域？比如A1:A10
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 1 Then .Value = .Value / 6.1279
End With
Next
Application.EnableEvents = True
End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then
Target.Value = Target.Value / 6.1279
End If
Application.EnableEvents = True
End Sub