Macro Assistance (Remove First number)Closed

Question

I have an excel speadsheet that is sent to me daily with numbers   
in column A (example:  1.1.2.1.1).  What  I have to do everyday  
is delete the first 1. to make it look like (1.2.1.1).    
Do anyone know if it is a macro that can do this for me to save time because I normally have about 300 to do daily?  If so, please show an example. 
Configuration: Windows XP / Safari 532.5

rizvisa1 · Answer

Try this 


Sub RemoveFirstPeriod()


Dim lMaxRows As Long
Dim vTemp As Variant

    lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
    
    For RowCount = 1 To lMaxRows
        vTemp = vbNull
        
        vTemp = InStr(1, Range("A" & RowCount), ".")
        
        If vTemp > 0 Then
        
            Range("A" & RowCount) = Mid(Range("A" & RowCount), vTemp + 1)
        End If
        
    Next RowCount
End Sub

Macro Assistance (Remove First number)

1 response

Similar discussions

Subscribe To Our Newsletter!