VBA自定义遍历工作表取值函数运行无响应无返回值问题求助

原始代码核心错误点 #

• 遍历逻辑遗漏最后一个工作表：原始代码使用Do While I < ws_Count作为循环条件，工作表索引从1到总数量，小于总数量的判断会跳过最后一个工作表，更推荐使用For Each遍历工作表集合，避免索引计数错误。
• FindNext参数不匹配：VBA中Find方法的参数会继承上一次系统或代码调用的查找配置，原始代码仅在首次调用Find时指定参数，FindNext运行时可能因参数不匹配无法找到目标值，你调整后的代码改为每次重新调用Find并明确传入全部匹配参数，是解决该问题的核心。
• 单元格对象未绑定所属工作表：原始代码中Range(Cells(...))未指定所属工作表，默认调用活动工作表的单元格，当遍历非活动工作表时会出现取值错位、报错问题。
• 字符串匹配区分大小写：原始InStr匹配工作表名称时区分大小写，若输入的月份参数与工作表名称大小写不一致会匹配失败，你调整后的代码统一将字符串转为大写后再做匹配，有效提升了兼容性。

代码可优化点 #

• 增加表头存在性判断：匹配"SEK"列后先判断是否匹配成功，避免空对象调用属性触发运行时错误
• 增加错误处理逻辑：自定义函数运行时若出现异常可返回明确的错误值，避免直接返回#VALUE!无法定位问题
• 大数据量场景下可先将单元格值读入内存数组处理，大幅提升遍历效率

提问优化建议 #

你当前的提问已经包含完整可复现的代码、明确的预期行为、实际运行问题，是质量很高的提问，后续提问补充以下信息会更方便快速定位问题：

• 工作表的结构样例，比如"SEK"列的位置、目标Typ的所在行格式
• 运行环境的Office版本
• 你输入的测试参数值以及预期的返回结果

内容的提问来源于stack exchange，提问作者Marcus Pantzar