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

2024-10-28 09:36:03

推荐回答（5个）

回答1：

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

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

3、点击【合并转换】。

4、选择【行列转换】。

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

回答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，运行隔行插入。操作前请备份好数据文件。

回答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"

回答4：

楼下的宏可以实现。

回答5：

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