Adding a period to abbreviations in address column

[rutt]

I would like to a a period to abbreviations for Road(Rd.), Street(St.), Highway(Hwy.), Lane(Ln.) etc. in the address column in excel. Address column is Column F Row 2. Let me know if you need any other information. Thank you!

 

[alansidman]

Here is a VBA solution.

Option Explicit


Sub addPeriod()
    Dim lr As Long, i As Long
    lr = Range("F" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To lr
        Range("F" & i) = Range("F" & i) & "."
    Next i
    Application.ScreenUpdating = True
    MsgBox "Action Completed"
End Sub

 

[Joe4]

Alan,

To clarify, that adds a period to the end of every value in column F, so that assumes that every entry in column F ends with an abbreviation.
So, that won't work if the abbreviated value isn't the last thing in the address (i.e. "1 Main St, New York, NY 11111"), or if the last thing isn't an abbreviation (i.e. "Road", "Street", "Apt. 4", etc.).

I think we probably need to see a whole bunch of examples of exactly what this data looks like, or else we are just making a bunch of assumptions.

 

[Marcelo Branco]

Maybe...

Before Macro

	F​
1​	Text​
2​	Road(Rd)​
3​	Street(St)​
4​	Highway(Hwy)​
5​	Lane(Ln)​

<tbody>
</tbody>

Sub aTest()
    Dim lastRow As Long
    
    lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    With Range("F2:F" & lastRow)
        .Value = Evaluate("=IF(ROW(2:" & lastRow & "),SUBSTITUTE(" & .Address & ","")"","".)""))")
    End With
End Sub

After macro

	F​
1​	Text​
2​	Road(Rd.)​
3​	Street(St.)​
4​	Highway(Hwy.)​
5​	Lane(Ln.)​

<tbody>
</tbody>

M.

 

[rutt]

Sorry, totally ignorant to this stuff! Is VBA different than entering a formula into the formula bar? I think I could sort the columns so that the address's with extensions would be together and only do those ones. Address's are in the following format:

11421 Route 322
350 Meadow Rd
416 N Pickering St
201 N Jefferson St
Po Box 174

Does this help?

 

[Joe4]

You need to step back, and really think about ALL the possibilities that might be dealing with.
In your examples, you already have 2 options which do not end in an abbreviation.
Might you also have some where the abbreviation occurs in the middle of the word? Like an apartment number appears after it, i.e.
416 N Pickering St, Apt 2B

Depending on the complexity of your data, you may possibly have to create a table (or array) that houses all the abbreviations that you are looking for.

 

[Marcelo Branco]

Sorry, totally ignorant to this stuff! Is VBA different than entering a formula into the formula bar? I think I could sort the columns so that the address's with extensions would be together and only do those ones. Address's are in the following format:

11421 Route 322
350 Meadow Rd
416 N Pickering St
201 N Jefferson St
Po Box 174

Does this help?

Disregard my post (#4)

M.

 

[rutt]

I do have all of the Apt. in a secondary column, but it sounds like it would be easier to just do it by hand.

 

[rutt]

Thanks for the help!! The forum has helped me with many other questions and I really appreciate all of the input!

 

[Joe4]

You could use Find/Replace All to replace all of each situation at once (I would recommend putting a space for the abbreviation, so you do not pick up words that have that letter combination in the middle of a word), but you need to be very careful of the following situations:
- If you replace " Rd" with " Rd.", if there is a value that was already " Rd." to start with, it will end up being " Rd.."
- If you have words like " State" or other words starting with " St", then replacing " St" with " St." would cause " State" to become " St.ate"

As you can see, data clean-up can be quite messy. Nothing beats getting good data from the start!