求助：VBA高手写段代码

zzhgsls · 发表于 2024-3-14 17:26

清风竹- · 发表于 2024-3-15 10:52

本帖最后由清风竹- 于 2024-3-17 19:24 编辑

请测试一下。

zzhgsls · 发表于 2024-3-17 15:11

清风竹- 发表于 2024-3-15 10:52
请测试一下。

首先感谢

运行时发现如下问题：
1、当名次没有符合的条件时，出错。（没有小于等于500的）Range("a3").Resize(n, 5) = br
2、当名次只有一个符合的条件时，出错。（一个小于500的）Range("a2:e" & n + 1).Sort Key1:=Range("e3"), Order1:=xlAscending, Header:=xlYes
3、当成绩册中没有该科目时，出错。m = --ar(i, l + 1)

清风竹- · 发表于 2024-3-17 19:24

zzhgsls 发表于 2024-3-17 15:11
首先感谢
运行时发现如下问题：
1、当名次没有符合的条件时，出错。（没有小于等于500的）Ra ...

修改好了。

		自动登录	找回密码
密码			免费注册