假如你要把随机数放在A1单元格打开工作簿按ALT+F11进入VBE编辑窗口双击你表格所在的工作表的名称使用workbook open()方法,写入如下语句:on error resume nextif [a1]=

"

"=choose(int(6*rand()+1),-1,-3,0,5,7,9)

"[a1]=[a1].valueend if