Excel 解数独|如何在电脑上做数独表格

Excel 解数独
c1 填阶数，加一按钮，代码如下：

Private Sub CommandButton1_Click()

Application.EnableEvents = False

Dim N, i, j As Integer
Dim s As Long
N = CInt(Range("c2").Value)

'检查阶数
If N 253 Or N Mod 2 = 0 Then
MsgBox "请输入一 3至253 间的奇数。 ", 64, "设置幻方阶数"
Exit Sub
End If

'删除原为数据
Dim nRow As Integer
nRow = Range("d65536").End(xlUp).Row
nRow = IIf(nRow < 4, 4, nRow)
Rows("4:"