Need to add a comma third from the right in a entire column

[pack605]

I have city and state in a column but need to add a comma after city and before state.

 

[gaz_chops]

Welcome to Mr Excel,

Be better if you posted a 'small' sample of your data and what result you want to see.

 

[pack605]

Welcome to Mr Excel,

Be better if you posted a 'small' sample of your data and what result you want to see.

I have:
Revere MA
Manchester NH

needs to be:
Revere, MA
Manchester, NH

 

[JLGWhiz]

some vba

Sub t()
Dim c As Range
For Each c In Range("A1:A3") 'set range to actual
    c = Left(c.Value, Len(c) - 3) & ", " & Right(c.Value, 2)
Next
End Sub

 

[Rick Rothstein]

I have:
Revere MA
Manchester NH

needs to be:
Revere, MA
Manchester, NH

Assuming you want to do this directly in the existing cells, here is a macro that you can use (just change the three red F's to the actual column letter designation where your city/state values are located, change the blue 1 to the row number containing your first city/state value)...

[table="width: 500"]
[tr]
	[td]Sub AddCommaBeforStateAbbreviation()
  Dim Addr As String
  Addr = "[B][COLOR="#FF0000"]F[/COLOR][/B][B][COLOR="#0000FF"]1[/COLOR][/B]:[B][COLOR="#FF0000"]F[/COLOR][/B]" & Cells(Rows.Count, "[B][COLOR="#FF0000"]F[/COLOR][/B]").End(xlUp).Row
  Range(Addr) = Evaluate(Replace("IF(@="""","""",REPLACE(@,LEN(@)-2,0,"",""))", "@", Addr))
End Sub[/td]
[/tr]
[/table]

EDIT NOTE
---------------------------
If you want to do this in a different column, then you can use this formula...

=IF(F1="","",REPLACE(F1,LEN(F1)-2,0,","))

Change three F's and one 1 as indicated above.

 

[pack605]

Thank you everyone!