Split Excel Cell To Separate Rows - vba

Question

I have a table that was created by a SQL query where each of the results were combined into one cell. I would like to get each value associated correctly on separate rows.
The data is currently set up like this:
+-------+---------+-------------------------------------------+---------------+
| ID | Desc | Users | Functions |
+-------+---------+-------------------------------------------+---------------+
| a | a desc | First Last [uname3], First Last [uname45] | abc, def, xyz |
+-------+---------+-------------------------------------------+---------------+
| b | b desc | First Last [uname8], First Last [uname72] | lmn, def, xyz |
+-------+---------+-------------------------------------------+---------------+
I would like for it to be presented as:
+-------+---------+----------------------+---------------+
| ID | Desc | Users | Functions |
+-------+---------+----------------------+---------------+
| a | a desc | First Last[uname3] | abc, def, xyz |
+-------+---------+----------------------+---------------+
| a | a desc | First Last [uname45] | abc, def, xyz |
+-------+---------+----------------------+---------------+
| b | b desc | First Last[uname8] | lmn, def, xyz |
+-------+---------+----------------------+---------------+
| b | b desc | First Last [uname72] | lmn, def, xyz |
+-------+---------+----------------------+---------------+
I would just do this manually but there are ~75 rows with as many as 125 users listed in the same cell.
Thanks for any help!

Answer 1

Let's say your data are stored in A to D columns in the sheet named TheNameOfSheet:
Dim i As Integer, j As Integer
Dim users() As String
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("TheNameOfSheet")
i = 1 'starting row
Do
'get the list of users and split it by comma
users = Split(wsh.Range("C" & i), ", ")
'go through the list of users
For j = LBound(users()) To UBound(users())
'insert new row
If j>0 Then wsh.Range("A" & i).EntireRow.Insert(Shift:=xlShiftDown)
'copy original data
wsh.Range("A" & i) = wsh.Range("A" & i)
wsh.Range("B" & i) = wsh.Range("B" & i)
'insert single name
wsh.Range("C" & i) = users(j)
wsh.Range("D" & i) = wsh.Range("D" & i)
'increase counter
i = i + 1
Next j
i = i +1
Loop
For further information, please see:
MS Excel: How to use the SPLIT Function (VBA)
Range.Insert Method (Excel)
Note: I didn't tested this code! I've written it directly from my head ;)

Answer 2

if you are not interested in writing an excel macro.
then do this.
copy paste the sorted results twice in our excel.
Select the entire column of users, choose text to columns with delimiter as Coma,
Sort all the columns (inc/desc, your wish) based on users column
then insert one more row beside between functions and users.
paste the below formula
=IF(D3=D2,E3,D3) on the first cell of newly added column and drag till bottom.
the output will look like the below image.
remvoe the columns D and E. there you are with the end result as you wanted it