假如一个学生的成绩（语文占比0.4，数学占比0.4，体育占比0.2）折合成100分计算，小明语文80分，数学90分，体育90分，那小明的成绩就是80×0.4+90×0.4+90×0.2=86分，但是某种原因，体育不考了，那小明的成绩能不能算成80×0.4+90×0.4=68分？那肯定不能啊，所以体育的0.2权值要按照一定的规律分配给语文和数学，假如是平均分，那语文占比（0.4+0.2/2），数学占比（0.4+0.2/2），小明的成绩就是80×（0.4+0.2/2）+90×（0.4+0.2/2）=85。（现在的情况就是假如语文没考呢，或者数学没考，或者三个都没考，或者三个考了任意两个，或者三个任意考了一个，都按照平均分配的这个规则，我这个权值立马就知道了），excel就要满足我这个要求，不用我一个一个算权值。反正权值的分配原则已经知道了，我上面说的是平均分原则，也有可能按照课程重要比例分。
excel吧 关注：281,890贴子：1,555,838
- 13回复贴，共1页
不感兴趣
开通SVIP免广告
不感兴趣
开通SVIP免广告
菠萝蜜
'全空不作处理
Option Explicit
Sub abc()
Dim a, i, j, p
a = Range("a2:c" & ActiveSheet.UsedRange.Rows.Count - 1).Value
ReDim b(1 To UBound(a), 1 To 1), n(UBound(a, 2))
For i = 1 To UBound(a)
For j = 1 To 3
If Len(a(i, j)) Then p = p + 1: n(p) = j
Next
If p = 1 Then
b(i, 1) = a(i, n(p))
ElseIf p = 2 Then
If n(1) = 1 And n(2) = 2 Then '1,2
b(i, 1) = a(i, 1) * 0.5 + a(i, 2) * 0.5
ElseIf n(1) = 1 And n(2) = 3 Then '1,3
b(i, 1) = a(i, 1) * 0.6 + a(i, 3) * 0.4
Else '2,3
b(i, 1) = a(i, 2) * 0.6 + a(i, 3) * 0.4
End If
ElseIf p = 3 Then
b(i, 1) = a(i, 1) * 0.4 + a(i, 2) * 0.4 + a(i, 3) * 0.2
End If
p = 0
Next
[e2].Resize(UBound(b)) = b
End Sub
'权重这样拆分觉得会更合理些
Option Explicit
Sub abc()
Dim a, i, j, p
a = Range("a2:c" & ActiveSheet.UsedRange.Rows.Count - 1).Value
ReDim b(1 To UBound(a), 1 To 1), n(UBound(a, 2))
For i = 1 To UBound(a)
For j = 1 To 3
If Len(a(i, j)) Then p = p + 1: n(p) = j
Next
If p = 1 Then
b(i, 1) = a(i, n(p))
ElseIf p = 2 Then
If n(1) = 1 And n(2) = 2 Then '1,2
b(i, 1) = a(i, 1) * 0.5 + a(i, 2) * 0.5
ElseIf n(1) = 1 And n(2) = 3 Then '1,3
b(i, 1) = a(i, 1) * (0.4 + 0.4 ^ 2 / (0.4 + 0.2)) + _
a(i, 3) * (0.2 + 0.2 * 0.4 / (0.4 + 0.2))
Else '2,3
b(i, 1) = a(i, 2) * (0.4 + 0.4 ^ 2 / (0.4 + 0.2)) + _
a(i, 3) * (0.2 + 0.4 * 0.2 / (0.4 + 0.2))
End If
ElseIf p = 3 Then
b(i, 1) = a(i, 1) * 0.4 + a(i, 2) * 0.4 + a(i, 3) * 0.2
End If
If Len(b(i, 1)) Then b(i, 1) = Round(b(i, 1), 1)
p = 0
Next
[e2].Resize(UBound(b)) = b
End Sub
