Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для перемещения строк по таблице при помощи цикла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для перемещения строк по таблице при помощи цикла (Макросы/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
 
Ответить
СообщениеЗдравствуйте, подскажите пожалуйста как зациклить данный процесс. Только начал разбираться с макросами, но ничего не получается, немного не понимаю механику.
Процесс вроде бы простой, перемещение выделенной области на постоянное количество строк, затем выбирается область без первой строки и опять перемещается на тоже количество строк.

[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]

Автор - maximkrasnotsvetov
Дата добавления - 15.03.2022 в 16:28
NikitaDvorets Дата: Понедельник, 21.03.2022, 12:23 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 61 ±
Замечаний: 0% ±

Excel 2019
maximkrasnotsvetov, здравствуйте.
Цитата
как зациклить данный процесс.


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


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

Автор - NikitaDvorets
Дата добавления - 21.03.2022 в 12:23
msi2102 Дата: Вторник, 22.03.2022, 16:57 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 65 ±
Замечаний: 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]
К сообщению приложен файл: _1.xlsm(14.3 Kb)
 
Ответить
Сообщениеничего не понял из Вашего объяснения, но попробуйте так, может угадал
[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]

Автор - msi2102
Дата добавления - 22.03.2022 в 16:57
RAN Дата: Вторник, 22.03.2022, 18:44 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5581
Репутация: 1114 ±
Замечаний: 0% ±

2010
msi2102, где ваш ведмедь?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеmsi2102, где ваш ведмедь?

Автор - RAN
Дата добавления - 22.03.2022 в 18:44
msi2102 Дата: Среда, 23.03.2022, 13:09 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 65 ±
Замечаний: 0% ±

Excel 2007
где ваш ведмедь?
По планете гуляет
:)
 
Ответить
Сообщение
где ваш ведмедь?
По планете гуляет
:)

Автор - msi2102
Дата добавления - 23.03.2022 в 13:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для перемещения строк по таблице при помощи цикла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!