关于EXCEL VBA 排序函数的问题

weixin7944

最近，在编写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

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

weixin7944

这是文件，谢谢！