VBA
这个问题我预定了，A1中输入数值 =IF(AN360问答D(A1=0,A1100),A1+1,IF(AND(A1=100,A1200),A1+3,IF(AND(A1=200,A1300),A1+4,IF(AND(A1=300,A1400),A1+5,A1+6)))) 加在输入的数值上需要
VBA代码，看看这个修改A1单元格的值 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Val(Cells(1, 1)) 400 Then Cells(1, 1) = Val(Cells(1, 1)) + 6 ElseIf Val(Cells(1, 1)) 300 Then Cells(1, 1) = Val(Cells(1, 1)) + 5 ElseIf Val(Cells(1, 1)) 200 Then Cells(1, 1) = Val(Cells(1, 1)) + 4 ElseIf Val(Cells(1, 1)) 100 Then Cells(1, 1) = Val(Cells(1, 1)) + 3 ElseIf Val(Cells(1, 1)) 0 Then Cells(1, 1) = Val(Cells(1, 1)) + 1 End If End Sub 再有什么需要更改的地方可以再找我，可以按ALT+F11试试打开代码编辑器
