Insert Row every 13th row, then Concatenate

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JEFF - 31 Jan 2007 20:38 GMT

Hello,

Have a list in column A. Every 13th row, I'd like to add a row. Then in
that new row, I'd like to Concatenate the text in the first row with the text
in the 12th row (in cell A13). From there, it would step down another 13
rows, insert a row, and in that new cell concantenate the text from row 14
with that found in row 25.... and so on.

Help?! TIA

Reply to this Message

Bob Phillips - 31 Jan 2007 21:11 GMT

Public Sub Test()
Dim iLastrow As Long
Dim i As Long

With ActiveSheet
iLastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = (iLastrow \ 13) * 13 To 13 Step -13
.Rows(i + 1).Insert
.Cells(i + 1, "A").Value = .Cells(i - 12, "A").Value & .Cells(i,
"A").Value
Next i
End With
End Sub

Signature

---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Hello,
>
[quoted text clipped - 6 lines]
>
> Help?! TIA

Reply to this Message

JEFF - 31 Jan 2007 21:42 GMT

Perfect! Thanks a ton...........

> Public Sub Test()
> Dim iLastrow As Long
[quoted text clipped - 20 lines]
> >
> > Help?! TIA

Reply to this Message