哪位大神帮忙看一下按条件拆分工作表代码出错 [问题点数:20分]

Bbs1
本版专家分:0
结帖率 0%
Bbs6
本版专家分:6206
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
红花 2020年2月 VB大版内专家分月排行榜第一
2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一
Bbs1
本版专家分:0
Bbs6
本版专家分:6206
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
红花 2020年2月 VB大版内专家分月排行榜第一
2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一