Find proper case put delimiter after upper case

shrinivasmj

Board Regular
Joined
Aug 29, 2012
Messages
140
I have a data in A coloum , NEED FORMULA OR VB TO PUT DELIMITER BETWEEN UPPER CASE AND PROPER

2133 JOSEPH DAMON DR Magadan Miass (8)862
624 WOODLAND TRAILS DR Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. Magadan Cherepovets 8652
19441 134TH AVE. S.E. Tjumen Zavolzhye 84722

EG

NEED TO PUT THE DELIMATER ( ^ ) AS SHOWN BELOW

2133 JOSEPH DAMON DR ^ Magadan Miass (8)862
624 WOODLAND TRAILS DR ^ Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. ^ Magadan Cherepovets 8652
19441 134TH AVE. S.E. ^ Tjumen Zavolzhye 84722
 
Re: Find proper case put dilimater afetr upper case

FO BELOW DATA ITS NOT WORKING

[TABLE="width: 491"]
<tbody>[TR]
[TD="width: 491"]1623 PINKNEY STREET Self-Employed 222[/TD]
[/TR]
</tbody>[/TABLE]

This is why I asked the question back in post #2, which you refused to answer! Please answer it now - what other formats could exist after the section in upper case?
 
Upvote 0

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes
Re: Find proper case put dilimater afetr upper case

Here's a rather long formula:

AB
2133 JOSEPH DAMON DR Magadan Miass (8)8622133 JOSEPH DAMON DR ^ Magadan Miass (8)862
624 WOODLAND TRAILS DR Krasnoyarsk Kirsanov 4862624 WOODLAND TRAILS DR ^ Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. Magadan Cherepovets 865229 WASHINGTON ST. ^ Magadan Cherepovets 8652
19441 134TH AVE. S.E. Tjumen Zavolzhye 8472219441 134TH AVE. S.E. ^ Tjumen Zavolzhye 84722
1623 PINKNEY STREET Self-Employed 2221623 PINKNEY STREET ^ Self-Employed 222

<tbody>
[TD="align: center"]1[/TD]

[TD="align: center"]2[/TD]

[TD="align: center"]3[/TD]

[TD="align: center"]4[/TD]

[TD="align: center"]5[/TD]

</tbody>
Sheet15

[TABLE="width: 85%"]
<tbody>[TR]
[TD]Worksheet Formulas[TABLE="width: 100%"]
<tbody>[TR="bgcolor: #DAE7F5"]
[TH]Cell[/TH]
[TH="align: left"]Formula[/TH]
[/TR]
[TR]
[TH="bgcolor: #DAE7F5"]B1[/TH]
[TD="align: left"]=TRIM(REPLACE(SUBSTITUTE(" "&A1," ",REPT(" ",200)),
AGGREGATE(15,3,FIND({"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"},SUBSTITUTE(" "&A1," ",REPT(" ",200))),1)-100,1,"^"
)
)[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]


The AGGREGATE function is available in Excel 2010 and later.
 
Last edited:
Upvote 0
I have a data in A coloum , NEED FORMULA OR VB TO PUT DELIMITER BETWEEN UPPER CASE AND PROPER

2133 JOSEPH DAMON DR Magadan Miass (8)862
624 WOODLAND TRAILS DR Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. Magadan Cherepovets 8652
19441 134TH AVE. S.E. Tjumen Zavolzhye 84722

EG

NEED TO PUT THE DELIMATER ( ^ ) AS SHOWN BELOW

2133 JOSEPH DAMON DR ^ Magadan Miass (8)862
624 WOODLAND TRAILS DR ^ Krasnoyarsk Kirsanov 4862
29 WASHINGTON ST. ^ Magadan Cherepovets 8652
19441 134TH AVE. S.E. ^ Tjumen Zavolzhye 84722
Here is the same code I posted to your other thread which asked the same question except you asked for a curly bracket instead of a caret symbol (I changed the symbol in this new code to the caret)...
Code:
Sub InsertBracketAtEndOfUpperCase()
  Dim R As Long, X As Long, Data As Variant
  Data = Range("A2", Cells(Rows.Count, "A").End(xlUp))
  For R = 1 To UBound(Data)
    For X = 1 To Len(Data(R, 1))
      If Mid(Data(R, 1), X, 1) Like "[a-z]" Then
        Data(R, 1) = Application.Replace(Data(R, 1), X - 1, 0, "^ ")
        Exit For
      End If
    Next
  Next
  Range("A2").Resize(UBound(Data)) = Data
End Sub
 
Last edited:
Upvote 0
You can also give this a try

Code:
Function InsertQuote(rng As Range)
    Dim v As String, i As Long, x As Long, l As Long
    x = 0
    v = rng.Text
    l = Len(v)
    For i = 1 To l
        If Mid(v, i, 1) Like "[a-z]" Then
            x = i
            Exit For
        End If
    Next i
    InsertQuote = Trim(Left(rng, x - 2) & "^ " & Mid(rng, x - 1, 200))
    
End Function
 
Upvote 0

Forum statistics

Threads
1,223,911
Messages
6,175,329
Members
452,635
Latest member
laura12345

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top