怎么用VBA对EXCEL内的数据排序

既然已经知道数据是从10100~10199,10200~10299,10300~10399……，为何还用排序，直接在A1输入10100，B1输入10200，C1输入10300……，然后选中A1:C1，向下拉动填充序列即可（下拉后，右下角有个方块提示按钮，点击，弹出中点选“序列填充”即可）。

根据你的补充，如下两个办法：

假设数据源在sheet1表的A1：F100，则在sheet2表操作：

1、公式+定位法

在A1输入

=IF(COUNTIF(Sheet1!$A$1:$F$100,1&TEXT(COLUMN(),"00")&TEXT(ROW()-1."00")),1&TEXT(COLUMN(),"00")&TEXT(ROW()-1."00")),"")

然后右拉F1，再下拉到F99，选中，复制，就地选择性粘贴——数值，然后，选中A1：F99，按F5——定位条件——空值——确定，然后鼠标指向任意一个被选中的单元格——右键——删除——单元格上移——OK！

2、纯公式法

在sheet2表的【B1】输入

=TEXT(SMALL(Sheet1!$A$1:$F$100,SUMPRODUCT(N($A$1:A$100<>""))+ROW()),"[<"&10^4+COLUMN()/1%&"]#;;")

右拉到G1，再下拉到G100即可。