请教,怎样用excel做随机等距抽样？
我有3500多份样卷，要每隔15份抽一份数据，然后行是有3500多行，列是从A-UC,怎样用函数最快抽取这些问卷呢...我用了笨方法数十五个复制粘贴，但是粘到1000多个就放弃了,.,太麻烦了，麻烦说的详细些～～谢谢啦～～
使用方法：
下载和安装《慧办公》，支持0ffice2007及以上版本；
打开工作簿，选择【慧办公】→【等距抽样】，如下图；
这里有两种抽样方式，一种是【根据组距抽样】，就是说，隔几行抽取一个或多个样本，一共抽多少个样本不确定，如下图；
另一种方式是【根据样本量抽样】，就是说，要抽多少个样本是确定，抽样的组距是由系统去计算的，如下图；
根据需要选择你需要的方式，设置好条件，点击【确定】即可。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-01-26
A旁边插入一列B列，B1到B15，输入1到15，B16-B30输入1到15，然后把这30格下拉填充该列。
然后，筛选B列某个数字，就得到你要的每隔15个取一行了。。。粘到新表就可以了
然后，筛选B列某个数字，就得到你要的每隔15个取一行了。。。粘到新表就可以了
第2个回答 2011-01-26
会用宏，就很简单了。打开母文件（假设为1.xls),ALT+F11，粘贴代码，新建一个空白EXCEL文件,保存命名为2.xls，在1文件中执行宏。
Sub CopyData()
For i = 0 To 233 '加为i是用做15的倍数，3500整除15为233
Rows(15 * i + 1).Select '从母表第一行开始复制，所以+1，如果数据从第2行，就+2，但不能大于5，因为3500-15*233=5，大于5将i值改为1开始
Selection.Copy '复制
Windows("2.xls").Activate '激活子表
Rows(i + 1).Select '选择第一行
ActiveSheet.Paste '粘贴
Windows("1.xls").Activate '母表激活
Next '下一个i
End Sub
Sub CopyData()
For i = 0 To 233 '加为i是用做15的倍数，3500整除15为233
Rows(15 * i + 1).Select '从母表第一行开始复制，所以+1，如果数据从第2行，就+2，但不能大于5，因为3500-15*233=5，大于5将i值改为1开始
Selection.Copy '复制
Windows("2.xls").Activate '激活子表
Rows(i + 1).Select '选择第一行
ActiveSheet.Paste '粘贴
Windows("1.xls").Activate '母表激活
Next '下一个i
End Sub
第3个回答 推荐于2018-07-27
两个方法可以实现：
假设条件：原来的数据放在sheet1里面，sheet1名称就是sheet1：
第一：使用公式，在sheet2（你要存放抽取数据的新表）A1里面输入公式 =OFFSET(Sheet1!A$1,15*(ROW()-1),0)
向右拖动到空白（sheet1里面最后一列UC），然后向下拖动到空白（最后一行3500+）。
完成你的要求
第二：使用VBA，打开VBA编辑窗口（ALT+F11或者 选择sheet2，点击开发工具-查看代码（EXCEL2007），点击工具 - 宏 - VB编辑窗口），在sheet2代码窗口输入以下代码：
Sub chouqu()
For i = 1 To 655
Rows(i & ":" & i).Value = Sheets(1).Rows("1:1").Offset((i - 1) * 15, 0).Value
Next
End Sub
按F5运行本回答被提问者和网友采纳
假设条件：原来的数据放在sheet1里面，sheet1名称就是sheet1：
第一：使用公式，在sheet2（你要存放抽取数据的新表）A1里面输入公式 =OFFSET(Sheet1!A$1,15*(ROW()-1),0)
向右拖动到空白（sheet1里面最后一列UC），然后向下拖动到空白（最后一行3500+）。
完成你的要求
第二：使用VBA，打开VBA编辑窗口（ALT+F11或者 选择sheet2，点击开发工具-查看代码（EXCEL2007），点击工具 - 宏 - VB编辑窗口），在sheet2代码窗口输入以下代码：
Sub chouqu()
For i = 1 To 655
Rows(i & ":" & i).Value = Sheets(1).Rows("1:1").Offset((i - 1) * 15, 0).Value
Next
End Sub
按F5运行本回答被提问者和网友采纳
相似回答