假设结果生成后显示在A1:E5单元格区域，鼠标右击工作表标签，选择“查看代码”，输入如下代码：Sub 生成舒尔特方格()
Dim i, j, k As Integer
Dim x(25) As Integer
For i = 1 To 25
x(i) = (25 - 1) * Rnd() + 1
Do While WorksheetFunction.CountIf(Range(Cells(1, 256), Cells(i, 256)), x(i)) > 0
x(i) = (25 - 1) * Rnd() + 1
Loop
Cells(i, 256) = x(i)
Next
k = 0
For i = 1 To 5
For j = 1 To 5
k = k + 1
Cells(i, j) = x(k)
Next
Next
End Sub将宏安全性设为中，重新启动文档后选择启用宏即可。只要运行宏“生成舒尔特方格”，就可得到不同组合的舒尔特5*5的表格。你还可以通过视图——工具栏——窗体，打开窗体工具栏，插入一个按钮用于运行该宏，这样平时只要按下这个按钮，瞬间可以得到不同组合的舒尔特方格。我做了一个，假如你需要的话，留下联系方式，发给你。
