本文目录一览：
- 1、excel如何实现随机抽取且不重复
- 2、如何用Excel分区域随机选出两个值？
- 3、Excel怎么随机抽取N行数据出来（整行）？
- 4、excel根据条件随机抽取样本？
- 5、excel怎么从一列或一行数据中随机抽取一个数
- 6、Excel中，怎么在一列随机出现的数据中，随机抽取1个数或者2个数？
excel如何实现随机抽取且不重复
Excel如何从一组数据中不重复随机抽取若干个呢？下面一起学习一下吧。
材料/工具
Excel
方法
1/6
如下图想要从左边区域中随机抽取四个不重复人员名单。
请点击输入图片描述
2/6
选中名单数据区域。
请点击输入图片描述
3/6
点击【随机重复】，选择【随机抽取】。
请点击输入图片描述
4/6
在【抽取个数】选项内录入4，然后点击【确定】。
请点击输入图片描述
5/6
点击G2单元格作为存放位置，然后点击【确定】即可完成。
请点击输入图片描述
6/6
完成效果如下图：
如何用Excel分区域随机选出两个值？
在excel工作表里，随机抽取一个数或两个数。
02选择数据区域，随机重复，随机抽取
03选择抽取的个数。不勾选抽中的单元格置空，选择存放位置，完成
04如果抽中的单元格数据删除，勾选抽中的单元格置空
05选择存放位置，确定，快速随机抽取数据，完成
Excel怎么随机抽取N行数据出来（整行）？
来自一位学员的问题，ABC列是数据源，现在想要提取双月的数据存放在EFG列。学员又不会函数公式，怎么做才好呢？大家帮助想想办法！
给到一个建议，可以考虑巧借查找替换来完成。大概的操作步骤如下：
第一步，E2单元格输入a3，E3单元格输入a5，然后同时选中两个单元格向下拖动到E7单元格。
第二步，选择E2：E7单元格区域，按下CTRL+H打开替换对话框，将a替换为=a
第三步，将E列的公式拖动复制到F、G列完成数据提取。
具体的操作，伙伴可以观看下面动画演示
excel根据条件随机抽取样本？
您好，随机的问题我解决了。您用下面的代码吧。
Sub button1_Click()
Set sl_sheet1 = CreateObject("System.Collections.Sortedlist")
For n = 2 To Sheets("表1").Cells(Rows.Count, 1).End(xlUp).Row
sheet1_A = Worksheets("表1").Cells(n, 1).Value
sheet1_D = Worksheets("表1").Cells(n, 4).Value
serNo = Application.RandBetween(1, 2147483648#)
'订单+客户
sheet1_key = serNo "$$" sheet1_A "$$" sheet1_D
'客户
sheet1_item = sheet1_D
If sl_sheet1.contains(sheet1_key) = False Then
sl_sheet1.Add sheet1_key, sheet1_item
End If
Next
Dim arrSheet1_key() As String
For m = 2 To Sheets("表2").Cells(Rows.Count, 2).End(xlUp).Row
If sl_sheet1.indexofvalue(Worksheets("表2").Cells(m, 2).Value) -1 Then
arrSheet1_key = VBA.Split(sl_sheet1.GetKey(sl_sheet1.indexofvalue(Worksheets("表2").Cells(m, 2).Value)), "$$")
If UBound(arrSheet1_key) 0 Then
Worksheets("表2").Cells(m, 5).Value = arrSheet1_key(1)
End If
Else
Worksheets("表2").Cells(m, 5).Value = "无匹配数据"
End If
Next
End Sub
excel怎么从一列或一行数据中随机抽取一个数
的具体步骤如下：
需要准备的材料分别是：电脑、Excel表格。
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后点击单元格输入想要随机抽取的数值。
3、然后点击后面的单元格输入公式：=INDIRECT("a"RANDBETWEEN(1,10)) ，回车确定。
4、然后就可以随机抽取出一个数值了。
Excel中，怎么在一列随机出现的数据中，随机抽取1个数或者2个数？
最好用宏自定义函数。同时按alt和f11进入宏界面，点菜单的插入，粘贴如下代码：
function
towofsix(xrng
as
range)
as
string
dim
x1,
x2
as
string
x1
=
application.worksheetfunction.index(xrng,
int(rnd()
*
6)
+
1)
x2
=
application.worksheetfunction.index(xrng,
int(rnd()
*
6)
+
1)
do
while
x2
=
x1
x2
=
application.worksheetfunction.index(xrng,
int(rnd()
*
6)
+
1)
loop
towofsix
=
x1
"
"
x2
end
function
回到excel中，假设6个数存放在b1到g1里，在a1输入
=towofsix($b$1:$g$1)，向下复制到a100，就可以了。