Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2022, 12:13   #1
Limonosu
Новичок
Джуниор
 
Регистрация: 03.03.2022
Сообщений: 1
По умолчанию Как растянуть Макрос в Excel

Есть Макрос, он копирует значения из нижней строки и вставляет в верхнюю.Как сделать, чтобы после удаления значений 2 строки, он перешёл на 3, 5,7,9,10 таких строк будет 2500.



Sub перестановка()
'
' перестановка Макрос
'

'
Range("A2:O2,Q2").Select
Range("Q2").Activate
Selection.ClearContents
Range("A3:O3,Q3").Select
Range("Q3").Activate
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A3:O3,Q3").Select
Range("Q3").Activate
Selection.ClearContents
Range("A4:O4,Q4").Select
Range("Q4").Activate
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub




И пробовал ещё вот так


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

'
Dim lRow As Long, i As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To lRow Step 2


Next i

End Sub
dim lRow as long, i as long
application.ScreenUpdating = false
lRow = Cells(Rows.Count, 2).End(xlUp).Row
for i = lRow to 3 step -2
range(cells(i, "A3:O3,Q3"),.copy cells(i,"A2")
Rows(i).EntireRow.Delete
next i
Limonosu вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как запустить макрос excel SmallMouse C# (си шарп) 0 03.09.2013 19:25
Как из Excel запустить макрос в Word HenryO Microsoft Office Excel 9 11.04.2013 07:12
Как через макрос выгрузить excel Radzhab Microsoft Office Excel 6 02.05.2012 14:36
Как написать макрос в Excel???? Маська Помощь студентам 1 10.11.2010 16:36
Как ускорить макрос в Excel 2003 polomus Microsoft Office Excel 4 04.12.2009 16:25