
VBA
这是一个比较笨的办法,简洁的还得找
VBA老师。插入四个辅助单元格B1C1D1E1,F1得出随机组合,共25种组合。双击B1C1D1E1F1五个任何一个单元格并回车,F1产生一个新的随机组合。B1=ROUNDUP(RAND()*4,0)C1=MID(SUBSTITUTE(1234,A2,""),ROUNDUP(RAND()*3,0),1)D1=MID(SUBSTITUTE(SUBSTITUTE(1234,A2,""),B2,""),ROUNDUP(RAND()*2,0),1)E1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(1234,A2,""),B2,""),C2,"")F1=--A2&B2&C2&D2