Sub TextToNumbers() ' ' ToNumbers Macro ' Converts the selected column to numbers (when text stored as numbers) Range(Selection, Selection.End(xlDown)).Select With Selection Selection.NumberFormat = General .Value = .Value End With End Sub
Sub ToNumbers() Range(Selection, Selection.End(xlDown)).Select With Selection Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End With Range(Selection, Selection.End(xlDown)).Select With Selection Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" End With End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.