生成舒尔特方格

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