как задать цикл чтобы к old_H(и др.) = "L14:M14" увеличивалась на 3 и было
old_H = "L17:M17",old_H = "L20:M20" и тд.
Dim i%
For i = 1 To 10
old_H = "L14:M14" '+ 3
old_D = "L15:M15" '+ 3
old_R = "L16:M16" '+ 3
new_H = "J14:K14" '+ 3
new_D = "L14:M14" '+ 3
new_R = "N14:O14" '+ 3
old_IP = "O14:Q14" '+ 3
new_IP = "P14:R14" '+ 3

Range(old_H).Select
Range(old_H).Cut Destination:=Range(new_H)
Range(old_D).Select
Selection.Cut Destination:=Range(new_D)
Range(old_IP).Select
Range(old_IP).Cut Destination:=Range(new_IP)
Range(old_R).Select
Range(old_R).Cut Destination:=Range(new_R)
Range(new_R).Select

Next
End Sub

заранее спасибо

я правильно делаю???

Sub makros11()

old_H = "L14:M14" '+ 3
old_D = "L15:M15" '+ 3
old_R = "L16:M16" '+ 3
new_H = "J14:K14" '+ 3
new_D = "L14:M14" '+ 3
new_R = "N14:O14" '+ 3
old_IP = "O14:Q14" '+ 3
new_IP = "P14:R14" '+ 3

Dim i
For i = 1 To 5
Range(old_H).Select
Range(old_H).Cut Destination:=Range(new_H)
Range(old_D).Select
Selection.Cut Destination:=Range(new_D)
Range(old_IP).Select
Range(old_IP).Cut Destination:=Range(new_IP)
Range(old_R).Select
Range(old_R).Cut Destination:=Range(new_R)
Range(new_R).Select

old_H = Range(old_H).Offset(2, 0)
old_D = Range(old_D).Offset(2, 0)
old_R = Range(old_R).Offset(2, 0)
new_H = Range(new_H).Offset(2, 0)
new_D = Range(new_D).Offset(2, 0)
new_R = Range(new_R).Offset(2, 0)
old_IP = Range(old_IP).Offset(2, 0)
new_IP = Range(new_IP).Offset(2, 0)

Next

End Sub

автор2-е для того чтобы работать с диапозоном не обязательно переберать его в цикле
т.е. если тебе надо перенести диапозон L14:M16 на три строчки вниз
не надо



мне нужно перенести диапозон на три строчки вниз не один раз а несколько
тоесть задать цикл
задача такая у меня вот такая таблица
1 4
2 5
3 6
1 4
2 5
3 6
1 4
2 5
3 6

мне нужно все в одну строку
вот так
1 2 3 4 5 6


1 2 3 4 5 6


1 2 3 4 5 6

vkodor
спасибо большое
это именно то что нужно
еще раз спасибо!!!

еще один вопросик)
а можно ли сделать чтобы было так?

спасибо