Макрос для перемещения строк по таблице при помощи цикла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос для перемещения строк по таблице при помощи цикла (Макросы/Sub)

maximkrasnotsvetov

Дата: Вторник, 15.03.2022, 16:28 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Здравствуйте, подскажите пожалуйста как зациклить данный процесс. Только начал разбираться с макросами, но ничего не получается, немного не понимаю механику.
Процесс вроде бы простой, перемещение выделенной области на постоянное количество строк, затем выбирается область без первой строки и опять перемещается на тоже количество строк.

[vba]

Код

Sub Макрос2()
'
' Макрос2 Макрос
'

'
Range("L60:O105").Select
Selection.Cut Destination:=Range("L76:O121")
Range("L77:O121").Select
Selection.Cut Destination:=Range("L93:O137")

End Sub

[/vba]

Сообщение отредактировал Serge_007 - Вторник, 15.03.2022, 17:06

Ответить

NikitaDvorets

Дата: Понедельник, 21.03.2022, 12:23 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 610

Репутация: 142 ±

Замечаний: 0% ±

Excel 2019

maximkrasnotsvetov, здравствуйте.

Цитата

как зациклить данный процесс.

Судя по формулировке задачи, явно не хватает исходных данных.
Чтобы зациклить любой процесс, нужно хотя бы знать, когда следует остановиться.
Предлагаю приложить файл-пример Excel и дать в нем пояснения.

Ответить

msi2102

Дата: Вторник, 22.03.2022, 16:57 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 415

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

ничего не понял из Вашего объяснения, но попробуйте так, может угадал
[vba]

Код

Sub Макрос3()
Dim rng As Range
    Set rng = Range("A1:B5")
    n = 6
    For m = rng.Rows.Count To 1 Step -1
        Range("A1").Offset(n).Resize(m, rng.Columns.Count).Value = rng.Offset(rng.Rows.Count - m).Resize(m, rng.Columns.Count).Value
        n = n + m + 1
    Next
End Sub

[/vba]