Question

怎样将EXCEL一列数据等分，比如500行，1000行？

我的EXCEL表中A列中有几万个数据，我每天都要提取五百或一千个出来使用，前一天用的过当然就不用了，但要保留在原表中。每天都要跟据计数来选择好麻烦，有没有别的方法？请高手指教！

Answer 1

1、选中A列数据单元格全部区域。

2、点击下图选项（Excel工具箱，百度即可了解详细的下载安装信息，本文这里就不做具体介绍）。

3、点击【合并转换】。

4、选择【行列转换】。

5、将【每行固定单元格个数】设置为4，然后点击【确定】即可完成。

Answer 2

按Alt+F11，双击sheet1，输入以下代码：

 

Sub 隔行插入()

Application.ScreenUpdating = False

Dim i%, j%, x%, y%

x = 500 '间隔行数

y = 1 '插入行数 

With ActiveSheet

For i = 1 To y

For j = 1 To .[A65536].End(xlUp).Row + Int(.[A65536].End(xlUp).Row / (x + i - 1))

If j Mod (i + x) = 0 Then .Rows(j).Insert

Next j

Next i

End With

Application.ScreenUpdating = True

End Sub

 

回到Excel，按Alt + F8，运行 隔行插入 。操作前请备份好数据文件。

 

追问

按了ALT+F11,输入不了

追答

你试试按ALT+F8进入宏界面，然后点击 创建 看看能不能进VBA编辑器。

还是不行的话，你证明你安装的版本不完整（例如精简版），不包含VBA。所以，你需要下载一个完整的版本来安装 。

Answer 3

假设你每天要提取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"

Answer 4

楼下的宏可以实现。

Answer 5

第一，对已用过的数据条数要做一个累计，比如说已用2500，填在b1中。
第二，在C1中=INDIRECT("b"&($B$1+ROW(C1)))，下拖500或一千行。
每将使用数据时，只需更改B1中的值，在C列即可行到500或一千个数据

追问

按你说的做了，结果不跳

追答

你用的是另一个表输入公式？

追问

可不可以加我Q1209087156,我发给你帮我做个示例呢