求救求救。vba大神 程序员

vba [CONFOUNDED FACE][CONFOUNDED FACE][CONFOUNDED FACE]
就是一段程序，找个能看懂的，然后把我要的算法摘出来，然后把我要求的想改的地方给我指出来我以后怎么改。。 总之感激不尽。 求救。