为方便起见，建名称“数独盘”和“可选数”，分别代表B2:J10和B12:J20两个区域。用如下VBA程序清空初盘：Sub 清空初盘()Dim rag As RangeFor Each rag In Range("数独盘")rag.ClearContentsrag.Font.Bold = FalseNextEnd Sub用如下VBA程序把初盘“粗体化”：Sub 粗体初盘()Dim rag As RangeFor Each rag In Range("数独盘")If rag.Value = "" Then rag.Font.Bold = FalseElse rag.Font.Bold = True...
自己之前写的，没有优化，多解的解不了Sub 解()Dim i, j, x, y, z As IntegerDim row, colDim kgDim pckg, a1, a2, a3Dim rt = TimerFor i = 1 To 9For j = 1 To 9If Sheet3.Cells(i, j)""...
