Sub CleanMessyColumn() Dim rng As Range, cell As Range Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each cell In rng cell.Value = Application.Trim(cell.Value) 'Remove extra spaces If IsNumeric(cell.Value) Then cell.Value = CDbl(cell.Value) Next cell
: Teaches a simple framework for reading data from closed workbooks and writing to active sheets. the excel vba handbook pdf paul kelly
Once you acquire the book (legally, please), do not read it cover to cover. That is a mistake. Here is the Paul Kelly reading strategy: Sub CleanMessyColumn() Dim rng As Range, cell As