weixin7944 发表于 2011-8-25 10:15

关于EXCEL VBA 排序函数的问题

最近,在编写EXCEL内排序时遇到了一个难题:EXCEL VBA 的排序函数是:
Range("B6:E50").Select
    Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin
D列含有公式,且引用了排序范围外的数据,排序后,D列的公式发生了错乱。因为担心排序会影响D列的公式的正确性,所以将D列排除在排序范围外。
Range("B6:C50","E6:E50").Select
    Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin
但是,D列的公式还是发生了变化。
不知道,怎么利用排序函数对这样的情况怎样处理,请高手指点迷津!谢谢!

weixin7944 发表于 2011-8-31 17:18

前面的问题,有了一个解决办法:就是,分几部分排序,将有公式的部分隔开。但是,又遇到一个新的问题,不知怎么的我的一个表格进行排序,第一行总是不参与排序。请高手指教

weixin7944 发表于 2011-8-31 17:20

这是文件,谢谢!
页: [1]
查看完整版本: 关于EXCEL VBA 排序函数的问题