Hi everyone, appreciate your valuable inputs. I have the following VBA codes which is currently running on Column C. I want it to run not only on column C but also from C to L.
Sub RemoveNonDigitsC()
Dim X As Long, Z As Long, LastRow As Long, CellVal As String
Const StartRow As Long = 2
Const DataColumn As String = "C"
Application.ScreenUpdating = False
LastRow = Cells(Rows.Count, DataColumn).End(xlUp).Row
For X = StartRow To LastRow
CellVal = Cells(X, DataColumn)
For Z = 1 To Len(CellVal)
If Mid(CellVal, Z, 1) Like "[!-,0.00-9]" Then Mid(CellVal, Z, 1) = " "
Next
With Cells(X, DataColumn)
.NumberFormat = "#,0.00"
.Value = Replace(CellVal, " ", "")
End With
Next
Application.ScreenUpdating = True
End Sub
Thanks in advance~!
Bookmarks