关于舒尔特方格的问题

ahczzyl

请教用EXCEL如何制作舒尔特方格,舒尔特方格:5行5列方格,一共25个格子,随机填入1-25这25个数字,不重复.

pureshadow

Sub test()
Dim mr As Range
For Each mr In Range("a1:e5")
    Do
    mr = Int(Rnd() * 25 + 1)
    Loop Until Application.CountIf(Range("a1:e5"), mr) = 1
Next mr
End Sub

ahczzyl

高手就是高手,谢谢了,测试通过了

ahczzyl

这代码还是有些问题,执行多次,而结果一样,能不能执行一次,就换一种随机内容?谢谢了

pureshadow

测试过的，没有任何问题，每次的结果都是不一样的。
这段代码只是生成结果，没有写清除的，只要在前面加一句
Range("a1:e5").clearcontent就可以了

ahczzyl

谢谢,你说的没错,真的非常感谢