I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones is in
cells A4:A6, etc.

Thanks,

Steve

Why don't you just insert 2 lines after each first name?

"Steve" wrote:

I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones is in
cells A4:A6, etc.

Thanks,

Steve

I was hoping for something easier, as I'm dealing with hundreds of employees.

"Luizvs" wrote:

Why don't you just insert 2 lines after each first name?

"Steve" wrote:

I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones is in
cells A4:A6, etc.

Thanks,

Steve

Steve
This little macro might help. I assumed your names are in Column A starting
in A2. This macro will insert 2 blank rows below every name. Is this what
you want? HTH Otto
Sub Insert2Rows()
Dim rColA As Range
Dim c As Long
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For c = rColA.Count To 1 Step -1
rColA(c).Offset(1).EntireRow.Resize(2).Insert
Next c
End Sub

"Steve" wrote in message
...
I was hoping for something easier, as I'm dealing with hundreds of
employees.

"Luizvs" wrote:

Why don't you just insert 2 lines after each first name?

"Steve" wrote:

I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones is
in
cells A4:A6, etc.

Thanks,

Steve

Perfect. Thanks,

Now, can a macro be written to merge the initial rows with the 2 blank rows
below it, but only for columns A-K, keeping L & M with the added rows/cells ?
Like merging A5:K7, then A8:K10, etc. ?

Thanks,

Steve

"Otto Moehrbach" wrote:

Steve
This little macro might help. I assumed your names are in Column A starting
in A2. This macro will insert 2 blank rows below every name. Is this what
you want? HTH Otto
Sub Insert2Rows()
Dim rColA As Range
Dim c As Long
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For c = rColA.Count To 1 Step -1
rColA(c).Offset(1).EntireRow.Resize(2).Insert
Next c
End Sub

"Steve" wrote in message
...
I was hoping for something easier, as I'm dealing with hundreds of
employees.

"Luizvs" wrote:

Why don't you just insert 2 lines after each first name?

"Steve" wrote:

I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones is
in
cells A4:A6, etc.

Thanks,

Steve

.

Steve
I've been out of pocket for the past week. If you wish send me your
file, or a sample of it, clearly showing before and after. Include a copy
of this post and your previous posts in this thread. My email is
. Remove the "extra" from this address. Otto

"Steve" wrote in message
...
Perfect. Thanks,

Now, can a macro be written to merge the initial rows with the 2 blank
rows
below it, but only for columns A-K, keeping L & M with the added
rows/cells ?
Like merging A5:K7, then A8:K10, etc. ?

Thanks,

Steve

"Otto Moehrbach" wrote:

Steve
This little macro might help. I assumed your names are in Column A
starting
in A2. This macro will insert 2 blank rows below every name. Is this
what
you want? HTH Otto
Sub Insert2Rows()
Dim rColA As Range
Dim c As Long
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For c = rColA.Count To 1 Step -1
rColA(c).Offset(1).EntireRow.Resize(2).Insert
Next c
End Sub

"Steve" wrote in message
...
I was hoping for something easier, as I'm dealing with hundreds of
employees.

"Luizvs" wrote:

Why don't you just insert 2 lines after each first name?

"Steve" wrote:

I have employees listed in column A
One employee in each row.
Can I split cells in B to create 3 cells in B1, etc.

Currently this:
A B
Smith B1 -one cell
Jones B2 - one cell

Want this:
Smith one cell
two cell
three cell
Jones one cell
two cell
three cell
Ok if employees end up merged so that Smith is cells A1:A3, Jones
is
in
cells A4:A6, etc.

Thanks,

Steve

.