excel一个单元格内生成多个随机数，并在中间插入逗号隔开，例如6450~6500内的随机数十个？ 如何在excel一个单元格内取4个随机数，用逗号隔开
EXCEL\u5982\u4f55\u5728\u540c\u4e00\u4e2a\u5355\u5143\u683c\u5185\u751f\u6210\u591a\u4e2a\u968f\u673a\u6570\u5b57\uff0c\u6bd4\u5982 \u60f3\u5728\u4e00\u4e2a\u5355\u5143\u683c\u5185\u670950\u4e2a 1\u523010\u7684\u968f\u673a\u6570\uff1f\u5047\u8bbe\uff0c\u201c\u4e00\u4e2a\u6570\u5b57\u201d\u5728A1\u3002\u201c\u5206\u621025\u4e2a\u968f\u673a\u6570\u5b57\u201d\uff08\u5c31\u8bbe\u7f6e\u4e3a\u6574\u6570\u5427\uff09\uff1a
B1\u8f93\u5165
=ROUND(RAND()*(A$1-25)+1,0)\u56de\u8f66\uff1b
B2\u8f93\u5165
=ROUND(RAND()*(A$1-SUM(B$1:B1)+ROW(A1)-25)+1,0)
\u56de\u8f66\u5e76\u5411\u4e0b\u586b\u5145\u81f3B24\uff1b
B25\u8f93\u5165
=A1-SUM(B1:B24)\u56de\u8f66\u3002
\u516c\u5f0f\u91c7\u7528\u968f\u673a\u51fd\u6570\uff0c\u53ef\u6309F2+Enter\u66f4\u65b0\u8fd0\u7b97\u7ed3\u679c\uff01
\uff08\u968f\u673a\u6570\u5b57\u4e4b\u548c\u7b49\u4e8e\u603b\u6570\uff1a\u4f60\u53ef\u4ee5\u5728\u53e6\u4e00\u5355\u5143\u683c\u8f93\u5165=SUM(B1:B25)\u505a\u68c0\u9a8c\uff09
\u968f\u673a\u6574\u6570\u5417\uff1f2\u4ee5\u5185\u4e5f\u5c31\u662f0\u30011\u30012
=RANDBETWEEN(0,2)&","&RANDBETWEEN(0,2)&","&RANDBETWEEN(0,2)&","&RANDBETWEEN(0,2)\u6216\u8005\uff1a
=INT(RAND()*3)&","&INT(RAND()*3)&","&INT(RAND()*3)&","&INT(RAND()*3) \u5982\u679c\u662f\u968f\u673a\u5c0f\u6570\uff0c\u5219\u9700\u8981\u6307\u5b9a\u4f4d\u6570\uff0c\u7528TRUNC\u622a\u5c3e\u51fd\u6570\uff1a
=TRUNC(RAND()*3,2)&","&TRUNC(RAND()*3,2)&","&TRUNC(RAND()*3,2)&","&TRUNC(RAND()*3,2)
Excel一个单元格内生成多个随机数，并在中间插入逗号隔开，这个如果不用辅助列，那么用单个公式的话会显得公式很长，所以建议利用辅助列生成随机数后再用TEXTJOIN函数连接，公式如下：
在E1:E50单元格区域输入公式：
=RANDBETWEEN(6450,6500)
在F2单元格输入公式：
=TEXTJOIN(",",E1:E50)
辅助列公式及效果图
F2单元格公式及效果图
如果在一个单元格输入公式的话，那么将TEXTJOIN函数公式中的E1:E50替换为RANDBETWEEN(6460,6500)，替换50个这样的公式即可。如下图替换了三个：
一个单元格公式及效果图
提供2种方法
1、直接用公式
假设我们在A1 输入 =6450+ROUND(RAND()*50,0)
然后依次下拉到A10，即产生10个随机数，然后在 B1 输入 =A1&"，"&A2&"，"&A3&"，"&A4&"，"&A5&"，"&A6&"，"&A7&"，"&A8&"，"&A9&"，"&A10
即完成
2、用VBA
①打开空白表，按住ALT +F11
②双击左侧 thisworkbook，并在右侧粘贴代码
③按F5运行
代码如下
Sub tt()
Dim i As Integer
For i = 1 To 10
If Cells(1, 1) <> "" Then
Cells(1, 1) = Cells(1, 1) & "£¬" & Round(6450 + Rnd() * 50, 0)
Else
Cells(1, 1) = "'" & Round(6450 + Rnd() * 50, 0)
End If
Next i
End Sub
=RANDBETWEEN(6450, 6500)
复制并下拉或者右拉10个单元格就是了。
若非要一个单元格里显示这10个数值，你自己用连接符号&去做吧！
可以用VBA处理，参考下面评论。
绛旓細1銆佺數鑴戞墦寮Excel琛ㄦ牸銆2銆佸啀A1鍗曞厓鏍间腑杈撳叆浠绘剰鏁板瓧锛岀劧鍚庡啀鍙︿竴涓崟鍏冩牸杈撳叆鍏紡=IF(A1<>"",A1,"")銆3銆佸彟涓涓崟鍏冩牸杈撳叆鍏紡=IF(A1<>"",A1,"")鍚庯紝鎸夊洖杞﹀氨鍙互浜嗭紝涓嶇A1杈撳叆浠涔堜笢瑗匡紝杩欎釜杈撳叆鍏紡鐨勮繖涓崟鍏冩牸閮戒細鑷姩鐢熸垚A1鐨勫唴瀹广4銆佽繕鏈変竴绉嶆瘮杈冪畝鍗曠殑鏂规硶锛屽湪鍙涓涓崟鍏冩牸涓杈撳叆...
绛旓細Excel鐨勫垎鍒楀姛鑳藉彲浠ュ疄鐜版鏁堟灉銆傛紨绀烘楠ゅ涓嬶細1銆佸湪excel涓杈撳叆鍑犲垪鏁版嵁锛屼互鍚嶅瓧鍜屽垎鏁版垚缁╀负渚嬶紝涓棿鐢ㄧ┖鏍奸敭闅斿紑銆2銆佸厛閫夋嫨鍗曞厓鏍间腑鐨勫叏閮ㄦ暟鎹紝鐒跺悗鍦ㄨ彍鍗曟爮閲岄変腑鏁版嵁-鐐瑰嚮鏁版嵁閫夐」-閫夋嫨鍒嗗垪銆3銆佸湪銆愭枃鏈垎鍒楀悜瀵肩1姝ャ戜腑锛岄夋嫨鍒嗛殧绗﹀彿锛屼笅涓姝ャ4銆佸湪銆愭枃鏈垎鍒楀悜瀵肩2姝ャ戜腑锛屾妸绌烘牸鎵撲笂...
绛旓細瑕佸皢Excel涓鐨涓涓崟鍏冩牸鍐呭鎷嗗垎鎴澶氫釜鍗曞厓鏍硷紝棣栧厛锛屼綘闇瑕侀変腑浣犳兂瑕佸鐞嗙殑鍗曞厓鏍笺傛壘鍒版暟鎹彍鍗曪紝鐐瑰嚮鍏朵腑鐨"鍒嗗垪"鍔熻兘锛岃繖灏嗗惎鍔ㄥ崟鍏冩牸鎷嗗垎鐨勮繃绋嬨傝繘鍏ュ垎鍒楅〉闈㈠悗锛岀暀鎰忓乏渚х殑閫夐」锛屾壘鍒"鍒嗛殧绗"骞跺嬀閫夊畠銆傛帴涓嬫潵锛屼綘闇瑕侀夋嫨鍚堥傜殑鍒嗛殧鏂瑰紡銆傚湪杩欎釜渚嬪瓙涓紝浣犲簲閫夋嫨"绌烘牸"浣滀负鍒嗛殧绗︼紝鍥犱负浣犵殑...
绛旓細瑕佸湪Excel宸ヤ綔绨夸腑涓娆℃鍒涘缓澶氫釜鎸囧畾鍚嶇О鐨勫伐浣滆〃锛屽彲浠ヤ娇鐢ㄥ涓嬫柟娉曘傚伐鍏凤細Office2013 鏂规硶濡備笅锛氶鍏堬紝灏嗗伐浣滆〃鍚嶅鍏ュ埌Excel宸ヤ綔绨夸腑浠绘剰涓宸ヤ綔琛ㄤ竴鍒椾腑 鐒跺悗閫夋嫨姝ゅ垪涓殑涓涓崟鍏冩牸锛屽垱寤烘暟鎹忚琛紝濡備笅鎵绀猴細灏嗗伐浣滆〃鍚嶆嫋鍒扮瓫閫夊櫒涓細鐒跺悗鍦ㄥ垎鏋愰夐」鍗′腑鐨勯夐」涓紝鐐瑰嚮鈥滄樉绀烘姤琛ㄧ瓫閫夐〉鈥濓紝鍦...
绛旓細瑕佸湪鍗曚釜鍗曞厓鏍间腑娣诲姞澶氫釜閫夐」锛屽彲浠ヤ娇鐢Excel鐨勬暟鎹湁鏁堟у姛鑳姐傛暟鎹湁鏁堟ф槸瀵瑰崟鍏冩牸鎴栧崟鍏冩牸鍖哄煙杈撳叆鐨勬暟鎹粠鍐呭鍒版暟閲忎笂鐨勯檺鍒躲傚浜庣鍚堟潯浠剁殑鏁版嵁锛屽厑璁歌緭鍏ワ紱瀵逛簬涓嶇鍚堟潯浠剁殑鏁版嵁锛屽垯绂佹杈撳叆銆備互Excel 2010涓轰緥锛岄氳繃鏁版嵁鏈夋晥鎬ф坊鍔犲涓夐」鐨勬楠ゆ槸锛氾紙1锛夐夋嫨瑕佹坊鍔犲涓夐」鐨勫崟鍏冩牸锛涳紙2锛夌偣鍑...
绛旓細妤间笂璇寸殑澶惈绯婁簡銆傞鍏堬紝鍗曞厓鏍兼槸excel鎴杦ps涓殑鏈灏忓崟浣嶏紝瀹冧笉鑳借鍒嗗壊鐨勩傚鏋滀竴瀹氳鍒嗗壊锛岀洰鍓嶆槸涓鑸槸閫氳繃2绉嶆柟妗堝疄鐜扳滃垎鍓测濇晥鏋滅殑锛1銆佸崟鍏冩牸涓嶅姩锛岄氳繃 鎻掑叆==銆嬪舰鐘==銆嬬洿绾 鏉ュ疄鐜 瑙嗚 鍜 鎵撳嵃 涓婄殑 鈥滃垎鍓测濇晥鏋滐紝瀹為檯涓婏紝鍗曞厓鏍艰繕鏄1涓崟鍏冩牸锛屽湪鏁版嵁寮曠敤鍜 鈥鍑犱釜鈥濊瑙変笂鐨...
绛旓細濡備綍鍦ㄤ竴涓excel鍗曞厓鏍煎唴杈撳叆澶氫釜鍊 鎴戜滑鏈夋椂闇瑕佸湪鏌涓崟鍏冩牸鍐杩炵画杈撳叆澶氫釜鏁板硷紝浠ユ煡鐪嬪紩鐢ㄦ鍗曞厓鏍肩殑鍏朵粬鍗曞厓鏍肩殑鏁堟灉銆備絾姣忔杈撳叆涓涓煎悗鎸夊洖杞﹂敭锛屾椿鍔ㄥ崟鍏冩牸鍧囬粯璁や笅绉涓涓崟鍏冩牸锛岄潪甯镐笉渚裤傚叾瀹炲彲浠ラ噰鐢ㄤ互涓嬫柟娉:鍗曞嚮榧犳爣閫夊畾鍗曞厓鏍硷紝鐒跺悗鎸変綇Ctrl閿啀娆″崟鍑婚紶鏍囬夊畾姝ゅ崟鍏冩牸锛屾鏃讹紝鍗曞厓鏍煎懆鍥村皢...
绛旓細2銆佺劧鍚庣偣鍑excel涓濉啓鏁版嵁鐨勫崟鍏冩牸锛岀偣鍑绘暟鎹夐」-閫夋嫨鍒嗗垪锛屽涓嬪浘鎵绀恒3銆佺劧鍚庡湪鎵撳紑鐨勬枃鏈垎鍒1涓紝閫夋嫨鍒嗛殧绗﹀彿锛岀偣鍑讳笅涓姝ャ4銆佸湪鏂板嚭鏉ョ殑鏂囨湰鍒嗗垪2涓紝鎶婇楀彿鎵撲笂鍕撅紝鐐瑰嚮涓嬩竴姝ャ5銆佺劧鍚庡湪鏂扮殑鏂囨湰鍒嗗垪鍚戝3涓紝閫夋嫨甯歌锛屽啀鐐瑰嚮瀹屾垚銆6銆佽繖鏍峰涓嬪浘鎵绀猴紝鎶涓涓崟鍏冩牸鍒嗘垚澶氫釜鍗曞厓鏍煎氨...
绛旓細锛堜竴锛夋柟娉曚竴锛氶夋嫨娉 閫変腑寰呮媶鍒嗗崟鍏冩牸锛屼緥濡 A1 鍜 B1锛岄夋嫨鈥滃紑濮嬧濋夐」鍗★紝鍗曞嚮鈥滃悎骞跺悗灞呬腑鈥濆彸杈圭殑榛戣壊灏忓掍笁瑙掞紝鍦ㄥ脊鍑虹殑鑿滃崟涓閫夋嫨鈥滃彇娑堝悎骞跺崟鍏冩牸鈥濓紝鍒 A1 鍜 B1 琚噸鏂板垎涓轰袱涓崟鍏冩牸锛涙彁绀猴細Excel鎷嗗垎鍗曞厓鏍间笉鍍 Word 鍙互璁剧疆鎷嗗垎涓鍑犱釜锛屽畠鍙細鏍规嵁鍚堝苟鍗曞厓鏍肩殑鏁扮洰鎷嗗垎锛屼緥濡傚悎骞...
