[已解决]VBA修改

beachum

请大神帮忙看看，这个xlsm怎么改，才能在一堆.xlsx文件里避免计算空的.xlsx文件。
附件中有（SH#601203.xlsx）计算的结果图片。

最佳答案

月排行榜 / 总排行榜

MOY838840554

2021-7-18 23:00

好歹放个正常的表啊，猜一下
a = Range("a1:i" & [a1].End(4).Row)
改成
a = Range("a1:i" & cells(rows.count,"A").End(3).Row)
后面代码放到if里
if ubound(a)>1 then
..........

跳转到最佳答案楼层

MOY838840554

好歹放个正常的表啊，猜一下
a = Range("a1:i" & [a1].End(4).Row)
改成
a = Range("a1:i" & cells(rows.count,"A").End(3).Row)
后面代码放到if里
if ubound(a)>1 then
..........

beachum

MOY838840554 发表于 2021-7-18 23:00
好歹放个正常的表啊，猜一下
a = Range("a1:i" & [a1].End(4).Row)
改成

抱歉，又忘记了附加正常的表！
您的意见已经能解决问题了！非常感谢！