Excel一个单元格内生成多个随机数,并在中间插入逗号隔开,这个如果不用辅助列,那么用单个公式的话会显得公式很长,所以建议利用辅助列生成随机数后再用TEXTJOIN函数连接,公式如下:
在E1:E50单元格区域输入公式:
=RANDBETWEEN(6450,6500)
在F2单元格输入公式:
=TEXTJOIN(",",E1:E50)
如果在一个单元格输入公式的话,那么将TEXTJOIN函数公式中的E1:E50替换为RANDBETWEEN(6460,6500),替换50个这样的公式即可。如下图替换了三个:
追答是2019版的吗?引号是英文状态下的双引号吗?,图片不清楚
提供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