第1个回答 2011-01-26
A旁边插入一列B列,B1到B15,输入1到15,B16-B30输入1到15,然后把这30格下拉填充该列。
然后,筛选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
第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运行本回答被提问者和网友采纳