Just for diversity reasons, with mat = RandomInteger[9, {3, 6, 1}] you may use Apply[Sequence, mat, {2}] Apply[Sequence, mat, {-2}] [1]: http://mathematica.stackexchange.com/a/103590/24604