Macro for Increasing/Decreasing Decimal

Question

Very often I need to increase/decrease decimal in large tables which have percentages and absolute numbers.

If I select all and make the change, percentage get converted in number format. Selecting numbers one by one to increase/decrease decimal is inefficient as I need to do this in various such tables.  Is there a way to inc/dec decimals without screwing the number formats in the cells selected?

***Post moved by the moderator to the appropriate forum category.***

Answer 1

Select your cells and run one of these

Sub IncreaseDecimal()

    Dim rngc As Range

    For Each rngc In Selection

        If rngc.NumberFormat = "0" Or rngc.NumberFormat = "0%" Then

            rngc.NumberFormat = Replace(rngc.NumberFormat, "0", "0.0")

        Else

            rngc.NumberFormat = Replace(rngc.NumberFormat, "0.0", "0.00")

        End If

    Next rngc

End Sub

Sub DecreaseDecimal()

    Dim rngc As Range

    For Each rngc In Selection

        If InStr(1, rngc.NumberFormat, "0.00") > 0 Then

            rngc.NumberFormat = Replace(rngc.NumberFormat, "0.00", "0.0")

        Else

            rngc.NumberFormat = Replace(rngc.NumberFormat, "0.0", "0")

        End If

    Next rngc

End Sub