sorting变体？

任何人都可以请帮我sorting一个变种

var_a = activesheet.range("A3:AL" & lastrow ).value var_a 1 column has some numbers var_a 2 column has dates 2/22/2011 like these var_a 3 column some other and so on 

现在，整个变体var_a应该按照具有date的列2以升序sorting

我知道在工作表上做的方式，但从来没有工作的变种，是的，我可以sorting工作表，然后将工作表的内容变成一个var_a是一个解决scheme，但sorting工作表需要30至40秒这是不受欢迎的我想sorting变体而不是表单。

请帮助我这些谢谢

Answer 1

尼科，

而不是在变体内实现sorting例程，您应该使用Excel的本机sorting。 如果您正在处理当前文件（我build议您先尝试使用“ 手动计算”对当前数据进行sorting），则解决方法是

• 从您当前的文件派生你的变体
• 将变体转储到新的工作簿（closures当前文件是一个选项）
• 运行sorting，然后创build一个新的sorting的变体数组，或更新现有的变体数组
• 将已sorting的变体数组转储回原始文件（或根据需要进一步处理）

Answer 2

这里有一个很好的地方可以find适合你需求的vb6sortingalgorithm： http : //www.codeguru.com/vb/gen/vb_misc/algorithms/article.php/c14627

只要记住，你可能需要将variablesvariables包装在转换函数（如cint（），cstr（）等）中，如果你想让它们正确sorting。 例如，您不想将1000和20sorting为string，因为它会先放1000。