VB数组赋值定义？
arr(n)=cells(k,"k").row
这里获得行号没问题，问题出在数组上限可能溢出
过程开始只定义了arr(1to10)
如果j循环中，符合条件的单元格超过10个，那么arr(n)就溢出了
而已经被注释掉的redimpreservearr(n)放在那里也没用，应当放在n=n+1之后，随时扩充arr上限才行
