Mathematica 表格

Grid[{
   {"P", "a", SpanFromLeft, Null, "b", SpanFromLeft}, {SpanFromAbove, 
    "a", "b", Null, "a", "b"}, 
   {"c", SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, 
    SpanFromLeft},
   {"p", "a", "b", Null, "a", "b"},
   {"p", "a", "b", Null, "a", "b"},
   {"p", "a", "b", Null, "a", "b"}}, 
  Dividers -> {None, {True, True, True, True, {False}, True}}] // (Column[{#}, Dividers -> {False, 1 -> True}] &)