Spanning horizontally and vertically in Grid

Question

I'm trying to make a Grid that has one cell that spans horizontally and one that spans vertically, like so (generated manually with Graphics):

But when I try to do this with Grid, the right-most vertical cell doesn't span both rows:

Grid[{
    { Style["1", FontSize->30], SpanFromLeft, Style["4\n4", FontSize->30] },
    { Style["2", FontSize->30], Style["3", FontSize->30], SpanFromAbove }
}, Frame->All, Spacings->{3,3} ]

Since I have the frame active, I know the right-most cell does in fact span both rows, as we see if we remove SpanFromAbove:

Grid[{
    { Style["1", FontSize->30], SpanFromLeft, Style["4\n4", FontSize->30] },
    { Style["2", FontSize->30], Style["3", FontSize->30] }
}, Frame->All, Spacings->{3,3} ]

Is it not possible to combine vertical and horizontal spans in a grid? Is there a better function, like some combination of Column and Row? Thx

Answer 1

I encountered a similar problem, and I found this idea that uses Grid inside Grid.

Grid[{
  {Grid[{
     {Style["1", FontSize -> 30], SpanFromLeft},
     {Style["2", FontSize -> 30], Style["3", FontSize -> 30]}
     }, Frame -> All, Spacings -> {3, 3}],
   Grid[{
     {Style["4", FontSize -> 30]},
     {Style["4", FontSize -> 30]}
     }, Frame -> True, Spacings -> {3, 2.99}]}
  }, Spacings -> -0.1]

I played with the Spacings a bit, to make the graph aligned, and here is the result.