VBA代碼如下，按alt+F11，在sheet1中雙擊，粘貼。工具宏運行宏。執行aaa即可。Subaaa()Fori=1To5000bb=""aa=""Forj=1To8a=VBA.Int(Rnd()*3+1)SelectCaseaCaseIs=1bb=Chr(64+Int(Rnd*26)+1)CaseIs=2bb=Chr(96+Int(Rnd*26)+1)CaseIs=3bb=Int(Rnd()*9+1)EndSelectaa=aa&bbCells(i,1)=aaNextjNextiEndSub
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang