求助VBA怎么判断最后5个数值是否连续增长或者下降

有时候会有负数出现

1.辅助列sum把所有列求和，2.然后判断上下单元格大小关系，3.countifs一下看近5个是否是同大或同小即可

用end（xlup）判断每列最后一行行数，然后把每列赋值给数组，将数组用transpose转换成一维数组。用数组.join将数组转换成字符串，再用alltrim或者substitute将字符串中的空格去掉。再用字符串.split方法将字符串重新组合成数组。最后判断该数组中的最后5个数据大小即可。然后再到下一列的判断，从头循环即可。

=IF(CONCAT(INDEX(A$1:A$999,N(IF({1},LARGE(IF(A$1:A$999,ROW($1:$999),),{5;4;3;2;1})))))=CONCAT(SORT(N(IF({1},INDEX(A$1:A$999,N(IF({1},LARGE(IF(A$1:A$999,ROW($1:$999),),ROW($1:$5))))))))),"连续增长","有下降")