Обмен двух столбцов на листе местами

[Decker]

Доброе время суток всем! Хотел спросить такую вещь ... можно ли написать пример кода на VBA, кого не затруднит, для обмена двух строк или столбцов с заданными номерами местами. Понятно что можно сделать запись макроса, выполнить все операции вручную, и потом на основе записанного макроса набросать что-то "удобоваримое" для себя. Но может у кого-то есть готовое / красивое / универсальное решение?

И второй вопрос ... есть определенная выделенная область. Каким образом можно снять объединение со всех ячеек в ней, если в ней имеются объединенные ячейки? Также интересует пример на VBA. Заранее спасибо.

з.ы. Последний вопрос отпал:

With Selection
        .MergeCells = False
    End With

[Serge 007]

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

Доброе время суток всем! Хотел спросить такую вещь ... можно ли написать пример кода на VBA, кого не затруднит, для обмена двух строк или столбцов с заданными номерами местами. Понятно что можно сделать запись макроса, выполнить все операции вручную, и потом на основе записанного макроса набросать что-то "удобоваримое" для себя. Но может у кого-то есть готовое / красивое / универсальное решение?


з.ы. Последний вопрос отпал:

With Selection
        .MergeCells = False
    End With

http://www.planetaexcel.ru/forum.php?thread_id=11495

[Teslenko_EA]

Здравствуйте Decker.
".. пример кода.. для обмена двух строк или столбцов.." может быть таким:

Sub rePlaceRows()
Dim v()
v = Rows(2).Value: Rows(2) = Rows(1).Value: Rows(1) = v
End Sub
Sub rePlaceColumns()
Dim v()
v = Columns(2).Value: Columns(2) = Columns(1).Value: Columns(1) = v
End Sub

Евгений.

[Aent]

Всё придумано до нас:
http://www.mvps.org/dmcritchie/excel/swap.htm
И некоторые даже пытаются это продавать:
http://www.sobolsoft.com/excelreverse/