有没有办法加速这个VBA算法

有没有办法加速这个VBA算法