根据单元格的值进行改动（不及格的弄到及格）

scyyzgxh

标题看起来很难理解，其实是这样的，期末了，需要对学生的成绩有个评价，我想拿其中一张真实的成绩来作评价就算了，但是看到有很多分数没有及格的，新年大头的，家长看到这么多不及格的科目就不好了，所以现在的想法是，不及格的科目，把它加到及格就好了，比如如果是60分及格的，考试分数是32的，那么就变成62，如果是72分及格的，考试分数是65的，那么就加到75（或者72也可以）。因为有好多数据，一个个去加很麻烦，所以来这求各位高手给个批量的方法，也顺便学下Excel。
下面附上测试数据（语数英是72及格，其它科目是60及格）：
9班成绩.zip (10.12 KB, 下载次数: 17)

2019-1-13 22:18 上传

点击文件名下载附件

鄂龙蒙

【新年大头的】改及格.rar (21.64 KB, 下载次数: 9)

2019-1-13 22:52 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Sub test()
  Dim rng
  Randomize
  Application.ScreenUpdating = False
  For Each rng In ActiveSheet.UsedRange
    If IsNumeric(rng.Value) Then
      If rng.Column <= 4 Then '72 语数英
        If rng.Value < 72 Then rng.Value = 72 + Int(9 * Rnd) + 2 '2-10
      Else '60 其它科目
        If rng.Value < 60 Then rng.Value = 60 + Int(7 * Rnd) + 2 '2-8
      End If
    End If
  Next
  Application.ScreenUpdating = True
End Sub

scyyzgxh

鄂龙蒙 发表于 2019-1-13 22:52

我试了下，挺好用的，非常感谢兄台。。。

bdlxzhf

给不及格的，从及格线再加0--5分吧。

scyyzgxh

一把小刀闯天下 发表于 2019-1-13 22:56
Option Explicit

Sub test()

嗯，两位大牛的效果好像都是随机数 ，太感谢你们了，谢谢！

uneye2

=IF(B2<72,ROUNDUP((72-B2)/10,0)*10+B2,B2)

wljzhengzh

要改成绩的话，每个学生都要改，否则，对已经的及格的学生来说是不公平的

mmlzh

这是公然做假的行为啊
J2=ROUND(TREND({99,72},SUBTOTAL({4,5},B:B),B2),)
M2=ROUND(TREND({99,60},SUBTOTAL({4,5},B:B),B2),)

zhulieyie

暗中观察，要求太奇怪。