excel随机抽取40行数据

1、如果数据在Sheet2 的A:D列，在Sheet2的A列前插入两列辅助列；2、在左上角的名称框中，输入A2:A953，按Enter键，将A2:A953单元格选中，输入=RAND()，按Ctrl+Enter组合键结束，快速向A2:A953单元格中输入随机数（随机数的重复机率极低）；3、在B2单元格输入以下公式，然后向下填充公式，得到A...

A1输入 =RAND() B1输入=RANK(A1,$A$1:$A$40)，下拉A1:B1到第40行。这样B1:B40就是40个不重复的整数。如果样本不是从1到40的递增数，而是事先设定好的一组信息，假定放在 G1:G40，可以增加在C1输入 =INDEX($G$1:$G$40,B1) 下拉到第40行就可以了。

2、将辅助列1中的随机值以【值】的行驶粘贴到辅助列2中。3、在不重复列中输入公式：=RANK(D3,D:D)。4、对不重复列【排序】。解读： 数字N可以根据实际需要来决定，如果有多行，辅助列1和辅助列2的值也需要N行即可。五、20-40之间的不重复随机数。方法：1、在辅助列1中输入公式：=RAND()。

假如在a列有100个你设定的数值，那么在b列输入rand函数下拉复制，再将b列排序，就会随机将a列100个数值排序，取其a列前40个数值就行。

Public Sub 提取()Dim lr1%, lr2%, lc%, i%, j lr1 = Sheet1.Cells(65536, 1).End(xlUp).Row For i = 1 To lr1 lc = Sheet1.Cells(i, 1000).End(xlToLeft).Column lr2 = Sheet2.Cells(65536, 1).End(xlUp).Row For j = 1 To lc If i Mod 10 = 0 Then Sheet2.Cells(...

1、VBA功能强大，可以利用很多算法实现随机数。这里介绍一种简单的办法。首先在Excel中按下Alt+F11，打开VBE界面，双击要生成随机数的工作表，在右侧空白处需要输入代码。输入代码如下：Sub m()Range("A:A").ClearContents'这里是A列，根据需要修改 For i = 1 To 10'这里是10个数字，根据需要修改 ...

会。打开excel文件，在多行多列中输入姓名，在C6单元中输入=D1，按确定，在右下角处出现十字形时，向下拖动，把左边空白表格上也填充上发，发现第一列已经全部出现名字了，把左边的内容选中，复制选择性粘贴到右边某一列即可，然后清除一下内容。在编辑excel表格的时候，excel表格中有多行数据，有时候...

设定自动筛选后，在A列的下拉框中选择:自定义，在弹出的对话框中选择:选择列表中“大于或等于”，对应的数字为20，在同一对话框的下一个条件中选择“小于或等于”，对应的数字为40 注意这两个条件的关系选择为“与”最后点击“确定”即可

我不知道你的数据的时间间隔是多少，假设你需要隔40个数据取一个数，可以这样 在F列输入数据1-N，在G1输入公式＝if(f1/40=int(f1/40),1,0)然后筛选1就可以提取每隔40个一个数据，如果是100，就改成100就行了，然后再复制粘贴到别的表里就行了，不清楚的话可以QQ369866705 ...

设定自动筛选后，在A列的下拉框中选择：自定义，在弹出的对话框中选择：选择列表中“大于或等于”，对应的数字为20，在同一对话框的下一个条件中选择“小于或等于”，对应的数字为40 注意这两个条件的关系选择为“与”最后点击“确定”即可