1、把你在B1:F30中输入函数的过程录制成代码。2、用do loop语句做循环。直到满足你要的条件为止。 手动刷新的方法不太好，因为既然是随机数，那出现30个格都为1的机率可能较小，手动次数多，累呀
不用编写宏只要双击任意单元格，回车就行了，随机数就会自动刷新，如果觉得双击不方便，可以打开窗体工具栏，放入微调项就是上下箭头的图标，把按钮与任意单元格链接，然后只要按一下微调钮就自动刷新B1:F1的数据
有人回答妙
