Extract all text in brackets into new row

[Delta729]

I work at a law firm and I need a relatively quick way of extracting data within brackets and put each instance onto the next new row. The legal documents have various legal codes and cites, that are various lengths. They are created in word, however when the are done, they often need to extract all of the data (which could be put into bracket like {} and get extracted. Each set of brackets would then need to be on the next empty row down. I put a sample file together. Column A has sample text with the curly brackets around the code that I need to extract, and then on column C it has the intended output.

Can anyone help with this or send me to a link to a file where someone has done something like this?

Thanks

[Marc L]

As a starter :

Sub Demo1() 
         Dim V, S$(), N&, R& 
    For Each V In ActiveSheet.UsedRange.Columns(1).Value 
            S = Split(V, "{") 
        For N = 1 To UBound(S) 
            R = R + 1 
            Cells(R, 2).Value = Split(S(N), "}")(0) 
        Next 
    Next 
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

[Olly]

You could use Power Query:

Please Login or Register  to view this content.

[Delta729]

Thank you, that works great!

I've never used Power Query, but the VBA code worked exactly as I needed it.

[Marc L]

Thanks for the rep' !

[Delta729]

No problem and many thanks. I was looking all over doing a Google search and couldn't find anything. But someone here was able to get what I needed in no time at all.