Wolfram Language 101 bytes
There has got to be a much more efficient way to accomplish this.
(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])& 
DavidC
- 25.5k
- 2
- 53
- 106
There has got to be a much more efficient way to accomplish this.
(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])&