关于excel vba

[fatfatfred]

如图，我想实现 批量替换范围数字为某一特定值 如 70——79替换为2.5
百度了一下，别人的方法一我做不出来，反正就是拖动不出来，能不能教一下如何实现？或者通过别的方法，如VBA Sheet.xxx

http://wenku.baidu.com/link?url=cN1viw_tzMtKN_GIPYMbITUV-DgT1FfFep1r0llGhxNkvDIy5YD8A9Czf4nkN_Tg8bLbpDbVba2Wwtsypns2nn0aWuEx15z1VwqKGQP3ohi
我是一个第一次尝试编VBA的方法算平均学分绩点的学习委员 捣鼓了半天，终于弄出来了：
先把值替换（因为咱们学校算绩点的机制不是 X-50再除以10）麻烦麻烦
然后VBA，编出了 学分乘以绩点 的求和


然后再


所以呢，并没有实现一键全部操作~欢迎大神们指导~多谢多谢！~ 记第一次用VBA求绩点啊哈

[赵4老师]

在Excel中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[一如既往哈]

sub test
   dim Rngs as range,Rng as range
  set rngs=sheet1.rrange('a3:h33")'''
  for each rng in rngs
     select case val(rng.value)
     case 70 to 79
         rng.value=2.5
     case 80 to 89
        rng.value=3
      end select
  next
end sub

[一如既往哈]

大概是那样的，看着修改一下即可