excel表格怎么页面等分

1.怎样将EXCEL一列数据等分,比如500行,1000行?

按Alt+F11，双击sheet1，输入以下代码：Sub 隔行插入（）Application.ScreenUpdating = FalseDim i%, j%, x%, y%x = 500 '间隔行数y = 1 '插入行数 With ActiveSheetFor i = 1 To yFor j = 1 To .[A65536].End(xlUp).Row + Int(.[A65536].End(xlUp).Row / (x + i - 1))If j Mod (i + x) = 0 Then .Rows(j).InsertNext jNext iEnd WithApplication.ScreenUpdating = TrueEnd Sub回到Excel，按Alt + F8，运行 隔行插入 。

操作前请备份好数据文件。