pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
I need a code to delete number in excel sheet if there are more then any four numbers & more together....eg 456332, 45743, 457342342000034 etc
but not number with less then 4 digits together.
I have the code for deleting all the number erespective but now i need something better so please help.
Thanks alot!
Pedie!
my current code below:
but not number with less then 4 digits together.
I have the code for deleting all the number erespective but now i need something better so please help.
Thanks alot!
Pedie!
my current code below:
Code:
[FONT=Bell MT]Sub Pedie_dots()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT]
[FONT=Bell MT]Dim LR As Long, i As Long, j As Integer, c As Range<o:p></o:p>[/FONT]
[FONT=Bell MT]LR = Range("A" & Rows.Count).End(xlUp).Row<o:p></o:p>[/FONT]
[FONT=Bell MT]For Each c In Range("A1:D" & LR)<o:p></o:p>[/FONT]
[FONT=Bell MT] For j = 0 To 9<o:p></o:p>[/FONT]
[FONT=Bell MT] c.Value = Replace(c.Value, j, ".")<o:p></o:p>[/FONT]
[FONT=Bell MT] Next j<o:p></o:p>[/FONT]
[FONT=Bell MT]Next c<o:p></o:p>[/FONT]
[FONT=Bell MT]End Sub<o:p></o:p>[/FONT]