Перемещение столбцов

[Janny]

Добрый день! Помогите, плиз!
Как посредством VBA поменять местами значения в столбцах?
Ситуация следующая: есть таблица диапазоном от А1:An до D1:Dn (n - некое число строк, постоянно меняется), нужно перенести все значения из столбца D в A и соответственно значения остальных сдвинуть на 1 вправо

[SAS888]

Например, так:

Sub Main()

    Application.ScreenUpdating = False
    Columns("A").Insert
    Columns("E").Cut [A1]
    
End Sub

[Janny]

Забыла сказать об одном условии.. это отчет, и данные столбцы нужно переставлять под шапкой, а после столбца D заполнены также столбцы E, F и т.д. - они должны остаться на месте

[Janny]

Пока что пришла к такому решению.. можно ли его как-то упростить?

Sub Main()
    Worksheets("Лист1").Activate
    Dim Range1 As Range
    Dim Range2 As Range
    Dim Range3 As Range
    Set Range1 = Range("A4:A10000")
    Range1.Select
    'Application.ScreenUpdating = False
    Range1.Insert
    Set Range2 = Range("E4:E10000")
    Range2.Select
    Range2.Cut [A4]
    Set Range3 = Range("E4:E10000")
    Range3.Select
    Range3.Delete
End Sub

[Janny]

Возник еще один вопрос.. т.к. может меняться диапазон значений в столбцах, нужно знать верхнюю и нижнюю границу и выделение должно быть только результативного диапазон.. чтоб не лазить постоянно в макрос и не менять значения.. если диапазон A4:А23, а в след. раз А4:А26.. заданый диапазон А4:А10000 не устраивает

[arendaa]

Дорогие подскажите как правильно использовать VBA? у меня не получается.

[SAS888]

нужно знать верхнюю и нижнюю границу и выделение должно быть только результативного диапазон.. чтоб не лазить постоянно в макрос и не менять значения.

А зачем знать нижнюю границу?
Если у Вас под таблицей есть данные, которые нельзя передвигать, то необходимо знать какой-нибудь признак того, что это конец таблицы (например, слово "Итого" в столбце "A", или что другое).
Следующий пример отыскивает первую пустую строку в диапазоне столбцов "A:D", начиная со строки 4 (переменная i), затем перемещает данные в этих столбцах в диапазоне строк от 4 до i. Но, если в таблице нет пустой строки, то перемещаться будут данные со строки 4 до конца данных в этих столбцах, включая и то, что под таблицей. Данные "правее" таблицы остаются неизменными.

Sub Main()
    Dim i As Long
    Application.ScreenUpdating = False
    Sheets("Лист1").Select
    For i = 4 To Rows.Count
        If Range(Cells(i, "A"), Cells(i, "D")).Text = "" Then Exit For
    Next
    Range([A4], Cells(i, "A")).Insert
    Range([E4], Cells(i, "E")).Cut [A4]
    Range([E4], Cells(i, "E")).Delete
End Sub