Разделить диапазон на 6 столбцов

[Viktorkv]

Здравствуйте!

Имеется файл эксель 2003, состоящий примерно из 50 000 строк и 4х столбцов.

Необходимо диапазон разбить по 6 столбцов, при чем в начале вставляются данные, по 30 строк, а последующие вставляются по 33 строки.
Другими словами документ был книжной ориентации, потребовалось сделать альбомной и все данные разнести на 6 столбцов.

Если кто знает, плиз откликнитесь

[IgorGO]

давайте еще раз и медленно

есть исходные диапазон А:Д
нужно начиная с 31 строки брать блоки по 30 строк и 5 раз переносить их в 1-ю строку все правее и правее?
ВСЕ остальные данные перемещаем блоками по 33 строки

так?

[Viktorkv]

1 этап
есть исходные диапазон А:Д
нужно брать блоки 1-30; 31-60; 61-90; 91-120; 121-150 и переносить их на новый лист в диапазон А-Д; E-H; I-L; M-P; Q-T.

2 этап
Дальше из диапазона А:Д
берем блоки через 33 строки 151-183; 184-216; 217-249; 250-282; 283-315 и переносим их на новый лист в диапазон А-Д; E-H; I-L; M-P; Q-T после данных, вставленных на 1 этапе, ну и так далее, пока не закончатся данные в диапазоне А:Д

[IgorGO]

при активном листе с данными выполните этот

Sub RasKolbas()
  Dim r As Long
  With ActiveSheet
    .Parent.Worksheets.Add
    For r = 1 To 121 Step 30
      .Cells(r, 1).Resize(30, 4).Copy Cells(1, Int((r - 1) / 30) * 4 + 1)
    Next
    For r = 151 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 33
      .Cells(r, 1).Resize(33, 4).Copy Cells(31 + Int((r - 151) / 165) * 33, 1 + Int(((r - 151) Mod 165) / 33) * 4)
    Next
  End With
End Sub

[Viktorkv]

Спасибо, Игорь! Это то, что нужно !!!