1. excel随机选取多个单元格
在WPS表格200个数据中随机抽取60个数据步骤如下：
1、打开WPS表格2016，打开需要查询数据的表格文档，或者输入相关的数据。
2、根据日常编辑需要选中输入要查询的数据名称。
3、选择要输出数据的单元格，在菜单栏找开“公式”根据提示在“常用函数”中使用VLOOKUP命令。
4、打开VLOOKUP函数对话框，点击“查找值”后面的按钮，选择要查询的数据单元格H3。
5、根据提示完成各项选择，数据表B2:F44（就是要输出数据的所有单元区域），列数要查询数据的结果是第几列，从选择数据的第一列开始计算。匹配条件0，为精确匹配。
6、点击确定按钮，完成第一个查询数据的结果，双击数据结果单元格右下角“十”，完成多个数据查询。
2. excel随机选择单元格内容
采用表格可以实现统计筛选抽样等多种功能，下面就为大家介绍一下excel随机抽样的实现步骤。excel随机抽样
1、首先在表格中列出需要抽样的数字样本，这里模拟需要在50个数字中随机抽取其中5个数字，在公式编辑栏上输入公式：=1+RAND()*(50-1)，按下回车后就能得到结果；
2、由于需要抽取5个数字，因此将公式往下拉复制到第五个单元格；
3、将这五个单元格选中之后，右键打开【设置单元格格式】，选择【数字】标签页，点击自定义，在类别中输入【00】；
4、按下确定之后，系统就会自动将数字修改为两位数，选择【值和源格式】粘贴即可； 以上就是关于excel随机抽样的介绍，希望以上的介绍能够帮助到您。
3. excel如何随机选取多个数据
用以下函数位数函数LEN()LEN 返回文本字符串中的字符数。
例A1中有548796数字在B2中输入=LEN(A1)=6众数函数MODE（）
例：如果A1=71、A2=83、A3=71、A4=49、A5=92、A6=88，则公式“=MODE(A1:A6)”返回71。
方差函数AVR()假设抽取某次考试中的5个分数，并将其作为随机样本，用VAR函数估算成绩方差，样本值为A1=78、A2=45、A3=90、A4=12、A5=85，则公式“=VAR(A1:A5)”返回1089.5。 标准差请看以下函数，因较长，省略了部分。
STDEV,是估计样本的标准偏差；
STDEVA,是在前者基础上令文本和逻辑值参与计算。
STDEVP,是整个样本总体的标准偏差；
STDEVPA也是在前者基础上令文本和逻辑值参与计算。 请在EXCEL“插入/函数/类别/统计”，找到该函数，在界面底部点击蓝色“有关该函数的帮助”阅读其详细说明。
4. excel随机选取单元格内容
1、首先在表格中列出需要抽样的数字样本，这里模拟需要在50个数字中随机抽取其中5个数字，在公式编辑栏上输入公式：=1+RAND()*(50-1)，按下回车后就能得到结果；
2、由于需要抽取5个数字，因此将公式往下拉复制到第五个单元格；
3、将这五个单元格选中之后，右键打开【设置单元格格式】，选择【数字】标签页，点击自定义，在类别中输入【00】；
4、按下确定之后，系统就会自动将数字修改为两位数，选择【值和源格式】粘贴即可；
5. excel表格随机选取
单元格中 =rand()*（(大数-小数)+小数）例如20到50之间的数 50-20=30 输入的内容为 =rand()*((50-20)+20)
rand()函数是Excel中产生随机数的一个随机函数。返回的随机数是大于等于 0 及小于 1 的均匀分布随机实数，rand()函数每次计算工作表时都将返回一个新的随机实数
6. excel随机选取多个单元格怎么操作
您好，在excel中要随机抽取三个姓名，需要多个函数进行配合，主要用到了Index函数、Match函数、Small函数。
具体公式如下：=INDEX(B:B,MATCH(SMALL(I:I,A4),I:I,0))
7. excel随机选取多个单元格的内容
操作方法
01
在excel工作表里，随机抽取一个数或两个数。
02
选择数据区域，随机重复，随机抽取
03
选择抽取的个数。不勾选抽中的单元格置空，选择存放位置，完成
04
如果抽中的单元格数据删除，勾选抽中的单元格置空
05
选择存放位置，确定，快速随机抽取数据，完成
8. excel随机抽取两个单元格
1.在单元格E1输入公式:"=OFFSET($A$1,RANDBETWEEN(0,9),)"然后回车（即按“Enter"键）你会发现单元格E1为随机从A1:A10提取的一个数。
2.将鼠标放到单元格E1的右下角，等到鼠标标志变为小十字，按下鼠标左键然后往下拖，你会发现拖出的数据都为随机从A1:A10提取的一个数。
9. excel随机选中一个单元格
1、打开表格，以其素材为例生成1至100之间的随机整数。
2、选中单元格，键入“RANDBETWEEN（1,100）”，按回车键确定。
3、选中该单元格，进行下拉填充操作。
4、生成随机整数的公式原理：RANDBETWEEN（最小整数，最大整数）。根据该原理方法即可完成生成随机整数的操作。
10. excel随机抽取多个
用vba编个程序可以实现。
将一个案例分享给大家。程序页面如下：
部分代码如下：
Private Sub CommandButton4_Click()
'开始抽奖
Dim zb As String, dj As String, rs As Integer
Dim SARR(1 To 5000, 1 To 2) '存放本次抽奖的候选人清单 1-姓名 2-电话号码
'Dim lsARR '存放最近100次的候选人
Dim ZZ1 As Integer, ZZ2 As Integer, ZZ3 As Integer
'Dim jgarr
Dim ysARR(1 To 3, 1 To 3) As Integer '三种颜色参数
Dim zjZD '仅存放姓名+半角分号（;)+4位尾号
Dim myName As String
Dim hxRs As Integer, ZJRS As Integer '候选人数,中奖人数
Const lsRs = 100 '存放100位候选人
Set zjZD = CreateObject("scripting.dictionary")
'ReDim jgarr(1 To ZJRS) As Long
A = 0 '
ysARR(1, 1) = 255: ysARR(1, 2) = 250: ysARR(1, 3) = 0
ysARR(2, 1) = 255: ysARR(2, 2) = 10: ysARR(3, 3) = 10
ysARR(3, 1) = 255: ysARR(3, 2) = 250: ysARR(3, 3) = 0
'清空颜色
For I = 1 To 15
myName = "TextBox" & I
Set xx = Me.Controls(myName)
xx.BackColor = RGB(255, 255, 255)
xx.ForeColor = RGB(255, 215, 0)
xx.Font.Size = 10
xx.BackStyle = 0
ZZ3 = ZZ3 - 1
If ZZ3 = 0 Then ZZ3 = 15
Next I
zb = ComboBox1.Value
dj = ComboBox2.Value
ZJRS = ComboBox3.Value '中奖人数
'读取还可抽取人数
With Sheets("中奖人数设定")
For I = 3 To 8
If .Cells(I, 2) = zb Then Exit For
Next I
For j = 9 To 11
If .Cells(2, j) = dj Then Exit For
Next j
kcqrs = .Cells(I, j) '可抽取人数
End With
If ZJRS = 0 Or ZJRS > kcqrs Or ZJRS > 15 Then
MsgBox ("抽奖人数设置不正确！")
Exit Sub
End If
ReDim jgarr(1 To ZJRS, 1 To 2)
'读取候选人 放入sarr
Select Case zb
Case "A"
lh = 2
Case "B"
lh = 5
Case "C"
lh = 8
Case "D"
lh = 11
Case "E"
lh = 14
Case "F"
lh = 17
End Select
hxRs = 0
With Sheets("人员清单")
HH = 3
Do While .Cells(HH, lh) <> ""
If .Cells(HH, lh + 2) = "" Then '检查是否中奖，已经中奖的不得参与摇奖
hxRs = hxRs + 1
SARR(hxRs, 1) = .Cells(HH, lh)
SARR(hxRs, 2) = .Cells(HH, lh + 1)
End If
HH = HH + 1
Loop
End With
ZZ1 = 0: ZZ2 = 0: ZZ3 = 0
upperbound = hxRs
lowerbound = 1
'1-11:中奖人数和候选人数一样时，单独做一个循环
If ZJRS < hxRs Then GoTo 200
'一样时
Do While True
For ZZ2 = 1 To hxRs
myName = "TextBox" & ZZ2
Set xx = Me.Controls(myName)
xx.Text = SARR(ZZ2, 1) & Chr(10) & Right(SARR(ZZ2, 2), 4)
Next ZZ2
DoEvents '释放程序控制权，允许其他事件
Sleep (5) '延时ms
DoEvents '释放程序控制权，允许其他事件
If A = 1 Then GoTo 300
Loop
200:
Do While True
100:
SJS = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
MYKEY = Trim(SARR(SJS, 1)) & ";" & Trim(Right(SARR(SJS, 2), 4))
If zjZD.EXISTS(MYKEY) Then
ZZ1 = ZZ1 + 1
If ZZ1 > 10000 Then
MsgBox ("数据异常！！！")
Exit Sub
End If
GoTo 100
End If
'ZZ1 = ZZ1 + 1
'If ZZ1 = 101 Then ZZ1 = 1
ZZ2 = ZZ2 + 1
If ZZ2 = ZJRS + 1 Then ZZ2 = 1
'ZZ3 = ZZ3 + 1
'If ZZ3 = 4 Then ZZ3 = 1
'lsARR(ZZ1) = sjs
myName = "TextBox" & ZZ2
Set xx = Me.Controls(myName)
'xx.Text = Left(SARR(SJS, 2), 3) & "XXXX" & Right(SARR(SJS, 2), 4)
xx.Text = SARR(SJS, 1) & Chr(10) & Right(SARR(SJS, 2), 4)
zjZD.RemoveAll
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
If xx.Text <> "" Then
MYKEY2 = qczf(Left(xx.Text, InStr(xx.Text, Chr(10)) - 1)) & ";" & Right(xx.Text, 4)
zjZD.Add MYKEY2, I
End If
Next I
'xx.BackColor = RGB(ysARR(ZZ3, 1), ysARR(ZZ3, 2), ysARR(ZZ3, 3))
DoEvents '释放程序控制权，允许其他事件
Sleep (5) '延时ms
DoEvents '释放程序控制权，允许其他事件
300:
If A = 1 Then
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
xx.BackColor = RGB(ysARR(1, 1), ysARR(1, 2), ysARR(1, 3))
xx.ForeColor = RGB(0, 0, 255)
xx.Font.Size = 20
xx.BackStyle = 1
'ZZ3 = ZZ3 - 1
'If ZZ3 = 0 Then ZZ3 = 15
Next I
Exit Sub
End If
Loop
End Sub
Private Sub CommandButton5_Click()
A = 1
End Sub
Private Sub CommandButton6_Click() '记录中奖信息
Dim zjZD
Dim ZJRS
Dim zjArr
zb = ComboBox1.Value '组别
dj = ComboBox2.Value '等级
ZJRS = ComboBox3.Value '中奖人数
Set zjZD = CreateObject("scripting.dictionary")
'遍历文本框，获取中奖的电话号码
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
ARR = Split(xx.Text, Chr(10))
MYTEXT = qczf(ARR(0)) & ";" & qczf(ARR(1))
zjZD.Add MYTEXT, I
xx.Text = ""
xx.BackColor = RGB(255, 255, 255)
Next I
Select Case zb
Case "A"
lh = 2
Case "B"
lh = 5
Case "C"
lh = 8
Case "D"
lh = 11
Case "E"
lh = 14
Case "F"
lh = 17
End Select
With Sheets("人员清单")
For I = 3 To .Cells(10000, lh).End(xlUp).Row
'SARR(SJS, 1) & Chr(10) & Right(SARR(SJS, 2), 4)
'mytext = Left(.Cells(I, lh + 1).Text, 3) & Right(.Cells(I, lh + 1).Text, 4)
MYTEXT = qczf(.Cells(I, lh).Text) & ";" & qczf(.Cells(I, lh + 1).Text)
If zjZD.EXISTS(MYTEXT) Then
.Cells(I, lh + 2) = dj
End If
Next I
End With
End Sub
Private Sub Frame2_Click()
xxx = 1
End Sub
Private Sub UserForm_Initialize()
Dim xstr(1 To 6) As String '保存每列的数据
Dim ystr(1 To 3) As String
Dim zstr(1 To 15) As Integer '
xstr(1) = "A"
xstr(2) = "B"
xstr(3) = "C"
xstr(4) = "D"
xstr(5) = "E"
xstr(6) = "F"
ComboBox1.List = xstr
ystr(1) = "一等奖"
ystr(2) = "二等奖"
ystr(3) = "三等奖"
ComboBox2.List = ystr
For I = 1 To 15
zstr(I) = I
Next I
ComboBox3.List = zstr
ComboBox3.Value = 15
End Sub
11. excel自动选中多个单元格
工具/材料：excel2007
1、首先将需要编辑的表格找到并双击将它打开。
2、打开了表格之后，在表格下面随意选中其中一个工作表。
3、选中了之后，右键单击鼠标，在弹出的选项中选择选定全部工作表这个选项。
4、这样就可以将excel表中的多个工作表一次性全部选中。
- 相关评论
- 我要评论
-
