使用辅助列，如在K列。相同或不同数据判断标准以A列为准
K1输入1
K2输入公式：=IF(A2=A1，K1，K1+1)，下拉到底，即最后一行数据
在K列最后一行数据之后输入1.5，填充下拉，即在后面追加1.5，2.5，3.5……的序列，序列填充到不小于前面公式的最大值。
对K列进行排序并扩展
删除K列。
OK！
除了VB，也可以用笨办法来做，就是复杂点：
1、按照A列排序；
2、在A列后插入一个辅助列B；
3、在B1单元格天上数字1；
4、在B2单元格，用公式=IF(A2=A1，B1，B1+2)，并拉下来
5、这样就能在B列得到奇数列，在数据的最下面插入相等数量的偶数2，4，6，8。。。。。；
6、根据B列按升序排序
7、删除B列
举例说明：
目的：欲将行2中A2至F2的内容与行1中A1至F1的内容实时保持一致
操作：
1、在A2单元格输入“=”号（不含“”啊，擦下⊙﹏⊙b汗），
2、鼠标左键单击A1单元格，
3、敲回车，
4、光标移至A2右下角，光标变为黑十字时，按住左键向右拖动至F2单元格。
大功告成！
买一赠一：关于列的操作，同理。
如下：
1、按照A列排序；
2、在A列后插入一个辅助列B；
3、在B1单元格天上数字1；
4、在B2单元格，用公式=IF(A2=A1，B1，B1+2)，并拉下来。
5、这样就能在B列得到奇数列，在数据的最下面插入相等数量的偶数2，4，6，8。。。。。。
6、根据B列按升序排序。
7、删除B列。