Pls guide me
Closed
SS
-
Jun 19, 2009 at 01:19 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jun 19, 2009 at 08:50 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jun 19, 2009 at 08:50 PM
Related:
- Pls guide me
- Wartales guide 2023 - Guide
- Front panel connectors guide - Guide
- Lucky patcher guide - Guide
- Little alchemy guide - Guide
- Back alley tales apk guide - Download - Adult games
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Jun 19, 2009 at 08:50 PM
Jun 19, 2009 at 08:50 PM
Jindon has given this macro which I have adapted to suit your data .POST FEEDBACK
Sub test() Dim r As Range, i As Long With Worksheets("sheet1") For Each r In Range(.Range("b2"), Range("b" & Rows.Count).End(xlUp)) If Len(r.Value) Then For i = 1 To Len(r.Value) If Val(Mid$(r.Value, i)) <> 0 Then r.Offset(, 1).Value = Val(Mid$(r.Value, i)) Exit For End If Next End If Next .Range("c1") = "number" .Range("a1").Sort key1:=.Columns("c"), order1:=xlDescending, header:=xlYes .Columns("c:c").Delete End With End Sub