Question

用excel vba写的循环语句，希望求月最大气温和最低气温，未响应

数据有近50000条。包含每天30分钟观测的气温，每天有40多条数据，共有3年的数据。我希望先求出每天的最大值和最小值，将其输出，在接下来求月最高温（日最大值的算术平均数）和最低温。刚开始写程序不太会写，如下：

数据格式如下

希望输出对应的日期的最大值或者最小值，为何一运行就未响应，求赐教！





Answer 1

不管数据取值如何，

1. 不知道J变量有何意义，因为始终j=i

2. B列有【空格】吗？貌似Do Until语句的等号后面” “中有个空格

取值：

Cells(i+1,"e")有问题，下一行的数据可能是下一天的数据了

要用IF Cells(i,"e")>tempMAX来判断

Answer 2

DO UNTIL CELLS(I,"B")=" " 这个是空格？应该是空白，写成"",而不是"空格"
这么大的数据量，是很容易假死，就算代码没有错，也要等很久呢。耐心点。
最大值，这个取错了。当下一行比上一行的温度高，就把下一行保存为最高温度？错了吧。

Answer 3

方法一：使用VBA来做，要用到for next 语句，vba自带的max、min函数，将结果放到另一个表格中。
方法二：使用数据透视表，不过5万行的数据透视表我没有做过，理论上数据透视表做最为方便。
如果数据方便上传的话，172871933@qq.com,我可以帮你写代码。