Loop through collumn

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Aug 12, 2011

• #2

Try

Code:

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        .Value = Replace(.Value, ".ipt", "")
    End With
Next i
End Sub

 

Upvote 0

S

Sebas123

New Member

Joined

Aug 12, 2011

Messages

4

• Aug 12, 2011

• #3

Never mind...

Gonna try it now.

 

Upvote 0

machopicho

Well-known Member

Joined

Feb 28, 2010

Messages

606

• Aug 12, 2011

• #4

=REPLACE(A1,FIND(".",A1),MID(A1),"")
Fill down

 

Upvote 0

S

Sebas123

New Member

Joined

Aug 12, 2011

Messages

4

• Aug 12, 2011

• #5

VoG said:

Try

Code:

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        .Value = Replace(.Value, ".ipt", "")
    End With
Next i
End Sub

Click to expand...

Thank you so much,

This is perfect.

Thanks,
Sebas123

 

Upvote 0

Rick Rothstein

MrExcel MVP

Joined

Apr 18, 2011

Messages

38,467

Office Version

1. 365

Platform

1. Windows

• Aug 12, 2011

• #6

I'm pretty sure this one-liner macro will do what you want (and it should be quite snappy about it)...

Code:

Sub DeleteDotIPT()
  Columns("A").Replace ".ipt", "", xlPart
End Sub

You could, of course, do the same thing without using a macro. Select Column A, press CTRL+H and put .ipt (note the leading dot) in the "Find what" field, leave the "Replace with" field empty and click "Options>>" to see all the options and make sure "Match entire cell contents" is not checked, then click the "Replace All" button.

 

Last edited: Aug 12, 2011

Upvote 0

C

Comfy

Well-known Member

Joined

Dec 21, 2009

Messages

3,386

• Aug 12, 2011

• #7

USe the built in Find and Replace function?

Find What: .ipt
Replace With: Leave this blank

 

Upvote 0