Как переставить все четыре столбца под одну строку и повторить для остальных четыре группы в excel?

Question

Мне нужно переставить значения в столбцах в каждой строке только на 4 столбца после матрицы 4 столбцов.Как показано на фиг.1 до фиг2.Точно так же я делаю для значений в строке 2 на рис. 3 и вставляю между row1 и row2, не удаляя указанные ниже значения.

Я попробовал это =OFFSET($A$1,,COLUMN()+4*(ROW()-2)-5), но некоторая справочная ошибка появляется, когда я предоставляю "-5".

Пожалуйста, помогите.

С помощью кода ошибки я получил этот результат

Answer 1

Одним из возможных решений является VBA.Код ниже для одной строки.измените и попробуйте:

Option Explicit

Sub test()

    Dim Lastrow As Long, i As Long, LastColumn As Long

    With ThisWorkbook.Worksheets("Sheet2")

        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

        For i = LastColumn To 5 Step -4

            Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row

            .Range(Cells(1, i), Cells(1, i - 3)).Select
            .Range(Cells(1, i), Cells(1, i - 3)).Cut .Range("A" & Lastrow + 1)

         Next i

    End With

End Sub