Как скопировать диапазоны которые находятся на равном растояние друг от друга...

[Алексей11111]

Ребята, возник такой вопрос с VBA:
Как скопировать диапазоны в excel, которые расположенны через 6 ячеек друг от друга вниз,их должно быть штук 300 всего, или безграничное кол-во, каждый из них расположен на 6 ячеек вниз от предыдущего. Очень нужно, помогите плз, хотя бы примерно!!!

[EducatedFool]

Будет пример файла с объяснением, что и куда копировать, - поможем.

И переименуйте тему...

[Алексей11111]

Сообщение от EducatedFool

Будет пример файла с объяснением, что и куда копировать, - поможем.

И переименуйте тему...

Без разницы куда , главное как их выделять, остальное разберусь...

[EducatedFool]

Sub test()
    Dim Диапазон As Range, Область As Range
    Set Диапазон = [a3:d4]:    Set Область = Диапазон
    For i = 1 To 300
        Set Область = Union(Область, Диапазон.Offset(i * 6))
    Next
    Область.Interior.Color = vbGreen ' красим в зелёный цвет
    Область.Copy Worksheets(2).[a1] ' копируем на второй лист
End Sub

И не надо ничего выделять...

[Алексей11111]

Сообщение от EducatedFool

Sub test()
    Dim Диапазон As Range, Область As Range
    Set Диапазон = [a3:d4]:    Set Область = Диапазон
    For i = 1 To 300
        Set Область = Union(Область, Диапазон.Offset(i * 6))
    Next
    Область.Interior.Color = vbGreen ' красим в зелёный цвет
    Область.Copy Worksheets(2).[a1] ' копируем на второй лист
End Sub

И не надо ничего выделять...

Вот посмотри плз.,
Dim i As Long: Application.ScreenUpdating = False
i = Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Copy Rows(i + 1)
Тут копируется последняя заполненная строка в следущую пустую...
А в этот раз нужно скопировать отдельно каждый диапазон из диапазонов которые находятся через равные растояния, на другой лист и в конец всех заполненных строк, начиная с пустого листа... возможно ввести номер диапазона и отдельно нужный диапазон скопировать...

[EducatedFool]

Попробуй так:

Sub test()
    Dim Диапазон As Range, Область As Range
    Set Диапазон = [a3:d4]:    Set Область = Диапазон
    For i = 1 To 300
        Set Область = Union(Область, Диапазон.Offset(i * 6))
    Next
    Область.Interior.Color = vbGreen ' красим в зелёный цвет
    Область.Copy Worksheets(2).Range("a" & Rows.Count).End(xlUp).Offset(1)
    ' копируем на второй лист - вставку начинаем с первой пустой строки
End Sub

[Алексей11111]

Сообщение от EducatedFool

Попробуй так:

Sub test()
    Dim Диапазон As Range, Область As Range
    Set Диапазон = [a3:d4]:    Set Область = Диапазон
    For i = 1 To 300
        Set Область = Union(Область, Диапазон.Offset(i * 6))
    Next
    Область.Interior.Color = vbGreen ' красим в зелёный цвет
    Область.Copy Worksheets(2).Range("a" & Rows.Count).End(xlUp).Offset(1)
    ' копируем на второй лист - вставку начинаем с первой пустой строки
End Sub

Ну ладно спасибо большое... Немножко не так, ну посижу помозгую... Наводка есть))

[Алексей11111]

Плз., подскажи ещё как скопировать такие же диапазоны на другой лист в диапазоны через 7 ячеек друг от друга, начиная с 7 строчки листа...

[EducatedFool]

Поизменяй значения, выделенные красным:

Sub test()
    For i = 0 To 300
        Worksheets(1).Range("a3:d5").Offset(i * 6).Copy  Worksheets(2).Range("a1").Offset(i * 7 + 6)
    Next
End Sub

[Алексей11111]

Я это понял...Ну Спасибище огромнейший!!!))))