Transpose Vertical to Horizontal in range

Hi, I need to transpose data multiple times from row to colum for each set of 26 items.

The following code works for one set, but I need to set this for all other following sets.

Sub Transpose()

Dim rng As Range

Dim i As Long

Dim j As Long 

Set rng = Cells (Rows.Count, 26) . End(xlUp)

j = 1 

For i = 1 To rng.Row Step 26

Cells(j, "J") . Resize(6, 26). Value = _

Application.Transpose(Cells(i, "B"). Resize (26, 6))

j = j + 1

Next i 

End Sub

Thanks in advance!

May 22nd, 2015 12:40pm

When you write 6 rows of data, why then increment j only by 1? .-)


Free Windows Admin Tool Kit Click here and download it now
May 23rd, 2015 3:15am

This topic is archived. No further replies will be accepted.

Other recent topics Other recent topics