怎样在EXCEL里把舒尔特方格制作成英文字母

ljbob

已知道下面的程序可以在EXCEL里制做数字式的舒尔特方格。我想把它改为字母式。字母A到Y.请高手帮忙改一下。谢谢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

pureshadow

Sub test()
Dim mr As Range
For Each mr In Range("a1:e5")

Do

mr = Chr(Int(Rnd() * 25 + 65))

Loop Until Application.CountIf(Range("a1:e5"), mr) = 1
Next mr
End Sub

ljbob

试过了，可以了，我给儿子做的舒尔特方格。如何把这个字母改成小写的呢？谢谢

pureshadow

65改成97

ljbob

谢谢。可以了

huangzeng217

1# ljbob

huangzeng217

我想知道楼主是怎么运用EXCEL制作这种表格的，谢谢

huangzeng217

最好是详细的贴图学习