Макрос меняющий местами строки

[uncleau]

Уважаемые форумчани, очень нужен макрос для Excel, меняющий местами заданные строки. Строки могут быть разного формата, с обьединенными ячейками.

[uncleau]

Пока вот набросал такой код:

Sub obmen()
a1 = Application.InputBox(PromtAsString, "Выделите строку 1", "1:1", a1)
a2 = Application.InputBox(PromtAsString, "Выделите строку 2", "2:2", a2)
запомним = Range(a1).Value
Range(a1).Value = Range(a2).Value
Range(a2).Value = запомним
End Sub

НО! Возникает ошибка:
При ручном выделении строк (когда вместо 1:1 указывается =$1:$1), мешает знак =, который подставляет Excel при выделении строк.

Опять же, как вариант можно не выделять номер строки, а указывать её номер, вот только как так сделать - незнаю.

[uncleau]

Вообщем нашёл вот такое решение:

Sub RowSwapper()
rw1 = Application.InputBox("Введите номер первой строки")
rw2 = Application.InputBox("Введите номер второй строки")
Rows(rw2).Cut
Rows(rw1).Insert
Rows(rw1).Cut
Rows(rw2).Insert
End Sub

Так же возможен вариант с заменой между собой двух выделенных строк:

Dim tempRRay As Variant
With Selection
With Range(.Areas(1), .Areas(.Areas.Count)).EntireRow
tempRRay = .Rows(1).Value
.Rows(1).Value = .Rows(.Rows.Count).Value
.Rows(.Rows.Count).Value = tempRRay
End With
End With

[chipok27]

К сожалению, в этой программе обмена не произойдёт...

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

Sub RowSwapper()
rw1 = Application.InputBox("Введите номер первой строки")
rw2 = Application.InputBox("Введите номер второй строки")
Rows(rw2).Cut
Rows(rw1).Insert
Rows(rw1).Cut
Rows(rw2).Insert
End Sub

Обе строки станут равны строке под номером rw2.

А вот второй вариант очень изящный и, главное, рабочий!!!

[Hugo121]

Подправить несложно:

Sub RowSwapper()
rw1 = Application.InputBox("Введите номер первой строки")
rw2 = Application.InputBox("Введите номер второй строки")
Rows(rw1).Cut
Rows(rw2).Insert
Rows(rw2).Cut
Rows(rw1).Insert
End Sub

[uncleau]

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

К сожалению, в этой программе обмена не произойдёт...

А ты проверял на практике? Видимо плохо знаешь функции методов Cut и Insert.