Excel VBA按日期排序的替代方式

时间:2010-07-30 14:55:14

标签: excel date sorting

我目前正在处理一个包含约25列的文档,每个列都有一个日期。 现在我必须按日期对这些列进行排序。但是,排序不应从1月开始,直到12月。在我的文件中,分类应该从九月开始,一直运行到六月(七月和八月可以省略,因为我的文件涉及一个在比利时从9月到6月运行的校园)。

是否有人可以帮助我进行此类排序的代码? 我首先选择所需的范围,然后使用Selection.Sort,但它始终从1月开始排序。

非常感谢提前!

亲切的问候, 马克

1 个答案:

答案 0 :(得分:0)

假设您在第1行中有1到12的月份编号。 添加一个包含公式

的辅助行
=MOD(A1-8+12,12), =MOD(B1-8+12,12), ...

(在第一个单元格中添加公式并将其拖到右侧;“8”表示“九月”)

按此值对列进行排序。