how to separate a cell while also keeping the info in other columns the same?

[ac1223]

As shown above I need to know how you take one cell (the names) and split them all up while preserving the rest of the row without manually typing, copy and pasting everything.

 

[Micron]

Take a look at the Text To Columns feature on the ribbon?

 

[ac1223]

Take a look at the Text To Columns feature on the ribbon?

Text to columns i smaking new columns for each person, i need new rows for each person

 

[ac1223]

Text to columns is making new columns for each person, i need new rows for each person.

 

[Micron]

Sorry, I missed that. Your comment about preserving the rest of the row made me think of splitting into columns while not affecting the first part of the row.

 

[dreid1011]

See if this does what you want:

Book1
	A	B
1	Target	Sarah,John,Steven
2	Walmart	Mike,Kyle,Kevin
3
4	Target	Sarah
5	Target	John
6	Target	Steven
7	Walmart	Mike
8	Walmart	Kyle
9	Walmart	Kevin
Sheet1

Private Sub ArrayTestII()
Dim ws As Worksheet
Dim rngA As Range
Dim i, j, lRow&
Dim arrA As Variant
Dim collA As Object
Dim strA() As String

Set ws = Sheets("Sheet1")
lRow = ws.Range("A1").End(xlDown).Row
arrA = ws.Range("A1:B" & lRow).Value2
Set collA = CreateObject("System.Collections.ArrayList")

For i = 1 To UBound(arrA)
    strA = Split(arrA(i, 2), ",")
    For j = 0 To UBound(strA)
        collA.Add Join(Array(arrA(i, 1), strA(j)), ";")
    Next j
Next i

Set rngA = ws.[A4].Resize(collA.Count)

With rngA
    .Value = Application.Transpose(collA.toArray)
    .TextToColumns DataType:=xlDelimited, Semicolon:=True
End With

End Sub

 

[Fluff]

How about

Fluff.xlsm
	A	B	C	D	E
1
2	a	x,y,z		a	x
3	b	f		a	y
4	c	h,j		a	z
5				b	f
6				c	h
7				c	j
Sheet8

Cell Formulas
Range	Formula
D2:E7	D2	=LET(c,LEN(B2:B4)-LEN(SUBSTITUTE(B2:B4,",",""))+1,HSTACK(TOCOL(IF(SEQUENCE(,MAX(c))<=c,A2:A4,1/0),2),DROP(REDUCE("",B2:B4,LAMBDA(x,y,VSTACK(x,TEXTSPLIT(y,,",")))),1)))
Dynamic array formulas.