代码参见《Excel 2010 VBA编程与实践》