EXCEL中随机产生一个三位数，二个二位数，三个一位数 excel 给出一个可以随机的三位数公式,可以下拉填充的
excel\u4e2d\u5982\u4f55\u968f\u673a\u4ea7\u751f0\uff0c1\uff0c2\u8fd93\u4e2a\u6570Excel\u4e2d\u53ef\u4ee5\u5229\u7528randbetween\u51fd\u6570\uff0c\u968f\u673a\u4ea7\u751f0,1,2\u4e09\u4e2a\u6570\u3002
\u8f6f\u4ef6\u7248\u672c\uff1aOffice2007
\u65b9\u6cd5\u5982\u4e0b:
1.\u5355\u5143\u683c\u4e2d\u8f93\u5165\u516c\u5f0f\u5982\u4e0b\uff1a
2.\u516c\u5f0f\u7ed3\u679c\uff1a
3.\u6309\u4e0bF9\uff0c\u5355\u5143\u683c\u6570\u503c\u4f1a\u968f\u673a\u57280.1.2\u4e09\u4e2a\u6570\u95f4\u53d8\u5316\uff1a
\u770b\u4f60\u7684\u516c\u5f0f,\u4f60\u8981\u7684\u662f3\u4f4d\u6570\u7684\u6574\u6570.\u4e0b\u9762\u5217\u4e24\u79cd\u65b9\u6cd5\u5982\u4e0b:
\u2460
=100+INT(900*RAND())
\u2461
=INT(1+9*RAND())&INT(10*RAND())&INT(10*RAND())
\u6216\u8005\u52a0\u4e2aVALUE\u6539\u4e3a:
=VALUE(INT(1+9*RAND())&INT(10*RAND())&INT(10*RAND()))
\u4ee5\u4e0a\u516c\u5f0f\u5728\u5e38\u89c4\u5355\u5143\u683c\u683c\u5f0f\u5185\u8f93\u5165\u68c0\u9a8c\u901a\u8fc7.\u53ef\u4ee5\u4e0b\u62c9\u590d\u5236\u6216\u76f4\u63a5\u590d\u5236\u4f7f\u7528.
\u8bf4\u660e:\u4f60\u7684\u516c\u5f0f\u6709\u4e5d\u767e\u5206\u4e4b\u4e00\u7684\u673a\u7387\u4ea7\u751f1000\u8fd9\u4e2a\u6570,\u6240\u4ee5\u7b54\u6848\u662f\u9519\u8bef\u7684,\u5982\u679c\u4e0b\u62c9\u5931\u8d25.\u53ef\u80fd\u662f\u4f60\u4e0b\u62c9\u65b9\u5f0f\u4e0d\u5bf9.\u7528\u590d\u5236\u8bd5\u8bd5.
=INT(RAND()*(999-100)+100)
二位数
=INT(RAND()*(99-10)+10)
一位数
=INT(RAND()*9)
INT是一个向下舍入取整的函数 （=INT(8.9) 将8.9向下舍入到最接近的整数(8) ）
RAND随即生成函数
下面三个公式分别生成三位数、二位数、一位数的随机数
=INT(RAND()*900)+100
=INT(RAND()*90)+10
=INT(RAND()*9)+1
方法是将公式录入要产生随机数区域的第一个单元格
然后，将公式向下复制即可
三位数公式,复制到一个空单元格
=(INT(RAND()*9+1)&INT(RAND()*10)&INT(RAND()*10))*1
两位数公式,复制到两个空单元格
=(INT(RAND()*9+1)&INT(RAND()*10))*1
一位数公式,复制到三个空单元格
=INT(RAND()*10)*1
乘1得出的是数值,不要可以舍去,那得出的是文本值
每按下一次F9功能键,全部数值会变动一次
绛旓細鐢ㄥ涓媀BA绋嬪簭锛歋ub try()Dim i1 As Integer, i2 As Integer, i3 As Integer, k As Integer k = 2 For i1 = 1 To 5 For i2 = 1 To 5 For i3 = 1 To 5 Range("A" & k).Value = Cells(1, i1) & Cells(1, i2) & Cells(1, i3)k = k + 1 Next i3 Next i2 N...
绛旓細鐪嬩綘鐨勫叕寮,浣犺鐨勬槸3浣嶆暟鐨鏁存暟.涓嬮潰鍒椾袱绉嶆柟娉曞涓:鈶 =100+INT(900*RAND())鈶 =INT(1+9*RAND())&INT(10*RAND())&INT(10*RAND())鎴栬呭姞涓猇ALUE鏀逛负:=VALUE(INT(1+9*RAND())&INT(10*RAND())&INT(10*RAND()))浠ヤ笂鍏紡鍦ㄥ父瑙勫崟鍏冩牸鏍煎紡鍐呰緭鍏ユ楠岄氳繃.鍙互涓嬫媺澶嶅埗鎴栫洿鎺ュ鍒朵娇鐢...
绛旓細excel鐨勯殢鏈鍑芥暟涓 rand锛堬級 锛屼负涓涓ぇ浜0灏忎簬1鐨勪笁浣闅忔満鏁般傝鍙樻垚涓変綅鏁存暟锛屼箻1000鍗冲彲銆備富瑕佹槸涓浜斾竴鍗佸湴鍙栨暣锛岃繖寰楃敤鍙栨暣鍑芥暟 round锛 锛夈傚湪鍗曞厓鏍间腑杈撳叆鍏紡锛 =round锛坮and锛堬級/5锛3锛*5*1000 杩欐牱灏卞彲浠ュ緱鍒涓涓殢鏈虹殑涓変綅鏁浜嗐傚綋鐒朵篃鍙兘鏄袱浣嶆暟鎴栦竴浣嶆暟锛屽025鎴005绛夛紝...
绛旓細鍦ㄧ涓鍒楄緭鍏ュ叕寮 =RANDBETWEEN(0,256) 涓嬫媺26琛岋紝璁茬涓鍒闅忔満鏁板鍒剁矘璐翠负鏁板 鍦ㄧ浜屽垪杈撳叆=LEFT(A1,1)鍦ㄧ涓夊垪杈撳叆=MID(A1,2,1)鍦ㄧ鍥涘垪杈撳叆=MID(A1,3,1)鍒嗗埆寰涓嬫媺 锛岀湅鐪嬫槸涓嶆槸浣犳兂瑕佺殑缁撴灉
绛旓細姝ラ涓銆佹墦寮闇瑕佺紪杈鐨別xcel琛ㄦ牸鏂囦欢锛屽鍥炬墍绀猴紝闅忔満杈撳叆鐨勯摱琛屽崱璐﹀彿鏄剧ず閿欒銆傛楠や簩銆佸湪姝ゅ崟鍏冩牸涓婄敤榧犳爣鍙抽敭鍗曞嚮锛屽苟涓旈夋嫨鈥滆缃崟鍏冩牸鏍煎紡鈥濋夐」銆傛楠や笁銆佸湪寮瑰嚭鐨勨滆缃崟鍏冩牸鏍煎紡鈥濆璇濇涓紝閫夋嫨鈥滄枃鏈濆垎绫伙紝鐒跺悗鐐瑰嚮鈥滅‘瀹氣濇寜閽傛楠ゅ洓銆佹鏃跺湪鍗曞厓鏍煎唴閲嶆柊杈撳叆闇瑕佺殑鏁板瓧銆傛楠や簲銆佽緭鍏ュ畬鎴...
绛旓細浣犺繖涓簲璇ユ槸缁欏皬瀛︾敓鍋氱粌涔犻鍚э紝鐢╮andbetween鍏堢敓鎴涓涓鍑忔暟锛屽啀鏍规嵁璇ュ崟鍏冩牸鐢熸垚鐨鏁版帶鍒跺彟涓涓崟鍏冩牸鐨勬暟澶у皬锛岀‘淇濅袱涓暟鐩稿姞灏忎簬999锛屾渶鍚庡啀鐢熸垚琚噺鏁帮紝瑕佹眰琚噺鏁颁竴瀹氳澶т簬涓や釜鍑忔暟鐩稿姞鍗冲彲銆傚叿浣撳叕绀鸿涓嬪浘銆
绛旓細濡傛灉鏁版嵁鍦ˋ2鍗曞厓鏍硷紝閭ｄ箞杈撳叆浠ヤ笅鍏紡 =RANDBETWEEN(INT(A2*1000)-10,INT(A2*1000)+10)/1000 鎴栬呯洿鎺ヨ緭鍏 锛漅ANDBETWEEN(102347116,102347134)/1000
绛旓細+ 100).Add rn, Application.WorksheetFunction.VLookup(rn, mb, 2, False)If Err.Number <> 0 Then i = i - 1 End If Err.Clear Next i Range("a1").Resize(.Count, 1) = WorksheetFunction.Transpose(.items)End With End If End Sub 浠ｇ爜鏀惧湪 Excel鍒椾妇涓や釜鏁存暟闂翠笉閲嶅闅忔満鏁 ...
绛旓細=TEXT(INT(RAND()*99999),"00000")鍥哄畾绗涓変綅鏁鐨勬柟娉曪紝鏄垎寮鐢熸垚锛屼緥濡傜敓鎴怷X-YYY鐨勯殢鏈鏁板叕寮忥細=TEXT(INT(RAND()*99),"00") &"-" & TEXT(INT(RAND()*999),"000")闅忔満鐢熸垚鍑犱釜绗﹀彿涔嬩竴鐨勬柟娉曪紝鏄娇鐢↖NDEX锛屼緥濡備笅闈㈢殑鍏紡鐢熸垚ABC涔嬩竴锛=INDEX({"A","B","C"},RANDBETWEEN(1,3))...
