excelr的 VBA 运行时错误1004"save"作用于对象"-wrokbook"时失败，求高手解决！

代码中并没有使用 save 方法，应该不会出现这个错误。
我检验了一下代码，没有错误。只是代码设计得不够精练，重复代码太多。另外存在一个小小问题，举例来说：arr = Sheet4.Range("A7:A" & Sheet4.[A100000].End(3).Row)，如果A6以下没有数据，程序设置的数据有效性系列就背离了你的设计意图，会设置为A7上面的最近一个数据。