VBA排序容易出现问题的地方注意事项  。写程序的时，居然在排序的问题上困住了。

Workbooks(fn2).Sheets(“sheet1″).Range(“B9:Q12″).Sort Key1:=Range(“P9″), Order1:=xlAscending, Header:=xlGuess

语法上看，真的很难看出有什么问题。于是我就找出以前的代码，发现居然出在的key1:=range(“p9″)的身上。
原来自己真得功夫好差。
程序有新生成了一个工作簿，key1默认的是thisworkbook,而非workbooks(fn2)，才造成排序一闪而过，无任何反应。解决方法很简单：key1改为如下：
Key1:=Workbooks(fn2).Sheets(“sheet1″).Range(“P9″)