如何运行这个宏

Sub Rand()

Randomize

Dim n As Integer

Do

n = Rnd() * 100

Loop Until (n < 10 Or n Mod 10 <> n / 10)

Sheet1.Range("A1") = n
End Sub

运行这个宏，只要光标在这个宏的任意一行上，按F5运行一遍。按F8的话，逐句运行。

但是这个宏，很可能啥结果也没有，这是宏的写法决定的。它只有在随机函数第一次得到10，20……90这些能被10整除的数才会在SHEET1的A1单元格写上结果。

安全性调整：最低安全性（可以运行宏）

然后选择菜单中的“宏”，选择“Rand”的宏即可。