Excel每个单元格都统一加上(或减去)一个数

```VBA
Sub add_substract_all()
' Smart code for Adding/Substract Number by Input to _
        all selection range value
    ' For Substract Value Should be in Negative
    ' Smart Excel (anilnahar.com)

Dim rng As Range
    Dim i As Integer

i = InputBox("Enter number Adding/Substract", "Value from _
                    Adding/Substract")
    For Each rng In Selection
    If WorksheetFunction.IsNumber(rng) Then
        rng.Value = rng + i
        Else
        End If
    Next rng
End Sub
```