请教,怎样用excel做随机等距抽样?
我有3500多份样卷,要每隔15份抽一份数据,然后行是有3500多行,列是从A-UC,怎样用函数最快抽取这些问卷呢...我用了笨方法数十五个复制粘贴,但是粘到1000多个...
我有3500多份样卷,要每隔15份抽一份数据,然后行是有3500多行,列是从A-UC,怎样用函数最快抽取这些问卷呢...我用了笨方法数十五个复制粘贴,但是粘到1000多个就放弃了,.,太麻烦了,麻烦说的详细些~~谢谢啦~~
展开
北京埃德思远电气技术咨询有限公司
2023-08-25 广告
2023-08-25 广告
"整定计算的工作步骤,大致如下:1.确定整定方案所适应的系统情况。2.与调度部门共同确定系统的各种运行方式。3.取得必要的参数与资料(保护图纸,设备参数等)。4.结合系统情况,确定整定计算的具体原则。5.进行短路计算。6.进行保护的整定计算...
点击进入详情页
本回答由北京埃德思远电气技术咨询有限公司提供
展开全部
A旁边插入一列B列,B1到B15,输入1到15,B16-B30输入1到15,然后把这30格下拉填充该列。
然后,筛选B列某个数字,就得到你要的每隔15个取一行了。。。粘到新表就可以了
然后,筛选B列某个数字,就得到你要的每隔15个取一行了。。。粘到新表就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
会用宏,就很简单了。打开母文件(假设为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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
两个方法可以实现:
假设条件:原来的数据放在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运行
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |