[URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23      Sub   macro_1()    Dim   a   As   Variant  , b   As   Variant    a = replace_([D3:G6], 1, 3)    b = replace_([I3:L6], 1, 3)    [D3].Resize(UBound(a, 1), UBound(a, 2)) = a   ' выгрузка на лист первой матрицы    [I3].Resize(UBound(b, 1), UBound(b, 2)) = b   ' выгрузка на лист второй матрицы    End   Sub       Private   Function   replace_(rng   As   Range, FirstCol   As   Integer  , LastCol   As   Integer  )   As   Variant    ' replace_: функция меняет местами столбцы FirstCol и LastCol диапазона rng    'rng: диапазон значений, в котором меняем местами столбцы    'firstCol: первый столбец (может быть и любым другим)    'LastCol: второй столбец (может быть и любым другим, но большим, чем firstCol!!)    'возвращаемое значение - массив, в котором столбцы firstCol и LastCol поменяны местами    Dim   arr   As   Variant  , j   As   Integer  , tmp   As   Variant    arr = rng    For   j = LBound(arr, 1)   To   UBound(arr, 1)          tmp = arr(j, FirstCol)          arr(j, FirstCol) = arr(j, LastCol)          arr(j, LastCol) = tmp    Next   j    replace_ = arr    End   Function