你想要什么样的结果呢，

如果想要C列不参与计算，可以改成如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
    If Target.Column > 3 Then
        If VBA.IsNumeric(Target.Value) Then
            If Target > 0 Then
                If Target.Column = 1 Then
                    Target.Offset(0, 1) = 0
                Elseif target.column = 2 then
                    Target.Offset(0, -1) = 0
       日夏养花网;         End If
            End If
        End If
    End If
End If
Application.EnableEvents = True
End Sub

这个要求公式搞不定的，要用VBA的