Как зациклить макрос?

[Alexdoc76]

В Excel необходимо проделать следующую процедуру 3500 раз:
1. Вырезать из ячеек В3:С3 и вставить в D2 (и соответственно E2), далее
2. Вырезать из ячеек В5:С5 и вставить в D4 и так далее, т.е.

всегда вырезать из двух нечетных ячеек и вставлять в ячейку на одну выше и правее. И так 3500 раз.

Помогите пожалуйста с макросом.
Спасибо большое.

[Igor67]

Наверно так
sub tt()
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
range(cells(i, "B"),cells(i,"C")).copy cells(i-1,"D")
range(cells(i, "B"),cells(i,"C")).clearcontent
next i
end sub

[Alexdoc76]

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

Наверно так
sub tt()
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
range(cells(i, "B"),cells(i,"C")).copy cells(i-1,"D")
range(cells(i, "B"),cells(i,"C")).clearcontent
next i
end sub

Большущее спасибо.
Только ошибку выдал: Объект не поддерживает свойство или метод?
здесь - Range(Cells(i, "B"), Cells(i, "C")).clearcontent

Может я что-то не так сделал?

[Alexdoc76]

Когда я записывал макрос, он почему то так записался

Range("B3:C3").Select
Selection.Cut
Range("B5:C5").Select
Selection.Cut
Range("B7:C7").Select
Selection.Cut
Range("C6").Select
End Sub

Я не разбираюсь, конечно, но не вижу где же он вставляет?
Если макрос правильный, нужно его зациклить прост.
Спасибо.

[Alexdoc76]

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

Наверно так
sub tt()
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
range(cells(i, "B"),cells(i,"C")).copy cells(i-1,"D")
range(cells(i, "B"),cells(i,"C")).clearcontent
next i
end sub

УРА! Заработало! Только я удалил строку

range(cells(i, "B"),cells(i,"C")).clearcontent

А как сделать, чтобы строка не очищалачсь а удалялась? Вместо clearcontent поставить deletecontent?

Спасибо!

[Hugo121]

Вообще-то правильно ClearContents - вероятно поэтому и не работала строка.
Ну а если хотите строку удалять - тогда цикл нужно переделать, пускать снизу вверх. Тогда можно

Rows(i).EntireRow.Delete

[Alexdoc76]

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

Вообще-то правильно ClearContents - вероятно поэтому и не работала строка.
Ну а если хотите строку удалять - тогда цикл нужно переделать, пускать снизу вверх. Тогда можно

Rows(i).EntireRow.Delete

Большое спасибо!
Только дело за малым осталось - как пустить снизу вверх? ))
Я сосем не понимаю VBA!
Спасибо.

[Hugo121]

Наверно так
sub tt()
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, "B"),cells(i,"C")).copy cells(i-1,"D")
Rows(i).EntireRow.Delete
next i
end sub

Но нужно на файле посмотреть, чтоб lRow было на той строке, которая нужна. Но файл есть только у Вас...

[Alexdoc76]

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

Наверно так
sub tt()
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, "B"),cells(i,"C")).copy cells(i-1,"D")
Rows(i).EntireRow.Delete
next i
end sub

Но нужно на файле посмотреть, чтоб lRow было на той строке, которая нужна. Но файл есть только у Вас...

Огромное человеческое Вам спасибо! Очень помогли!

[Hugo121]

Спасибо уходит Игорю - код его.
Хотя я тоже Игорь...