优化部分代码的写法

1. 用Excel常量代替红黄的数值常量;
2. 使用Range的offset属性代替Get方向的函数;
3. 修改是否为单选的判断逻辑.