把模式换到分页模式,第一页拉500行数据,后面的每页都是一样的了撒。
第一,对已用过的数据条数要做一个累计,比如说已用2500,填在b1中。
第二,在C1中=INDIRECT("b"&($B$1+ROW(C1))),下拖500或一千行。
每将使用数据时,只需更改B1中的值,在C列即可行到500或一千个数据
假设你每天要提取500个,在B1输入
=OFFSET($A$1,(TODAY()-"2012-12-26")*500+(ROW(A1)-1),)
下拉到B500就OK了。
如果你数据从A2开始,要提取1000行,在B2输入
=OFFSET($A$2,(TODAY()-"2012-12-26")*1000+(ROW(A1)-1),)
下拉到B1001
注意,公式中"2012-12-26"是你第一次提取的日期,假设你从今天开始用这个公式来提取,这里就写"2012-12-26",明天开始就写"2012-12-27"
按Alt+F11,双击sheet1,输入以下代码:
Sub隔行插入()
Application.ScreenUpdating=False
Dimi%,j%,x%,y%
x=500'间隔行数
y=1'插入行数
WithActiveSheet
Fori=1Toy
Forj=1To.[A65536].End(xlUp).Row+Int(.[A65536].End(xlUp).Row/(x+i-1))
IfjMod(i+x)=0Then.Rows(j).Insert
Nextj
Nexti
EndWith
Application.ScreenUpdating=True
EndSub
回到Excel,按Alt+F8,运行隔行插入。操作前请备份好数据文件。
1、选中A列数据单元格全部区域。
2、点击下图选项(Excel工具箱,百度即可了解详细的下载安装信息,本文这里就不做具体介绍)。
3、点击【合并转换】。
4、选择【行列转换】。
5、将【每行固定单元格个数】设置为4,然后点击【确定】即可完成。