MMA画格子

青青子衿

n = 10;
Grid[Table[x, {n}, {n}], Dividers -> {
   Flatten[{False, ConstantArray[1, n - 1]}],
   Flatten[{False, ConstantArray[1, n - 1]}]}]