Format Numbers As Thousands And Millions

1 minute read When you want to just show numbers as 9.1 M or 830 K ‘================================================================================================== ‘ ## Format Millions with 1 decimal. focuses on constants and formulas ‘================================================================================================== Sub FormatMillions() Dim rng As Range Set rng = Application.Selection If rng.Count = 1 Then rng.Select rng.NumberFormat = “[>=100000]#,##0.0,,”” M””;[=100000]#,##0.0,,”” M””;[=100000]#,##0.0,,”” M””;[=100000]#,##0.0,,”” M””;[=1000]#,##0.0,”” K””;[=1000]#,##0.0,”” K””;[=1000]#,##0.0,”” … Read more