请教,怎样用excel做随机等距抽样?
发布网友
共1个回答
热心网友
两个方法可以实现：
假设条件：原来的数据放在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运行
