学生考试成绩合并求助

adud

学生考试成绩分为ABCDE五档,A档最高,E档最低,
要求将第一次第二次第三次考试成绩合并到一起,只保留最好成绩.
请求各位大神的帮助,谢谢

liulang0808

liulang0808

楼主的所有表格，如果数据位置是完全对应的，可以不用字典，直接对应位置判断赋值

yynrzwh

我会修电视

供参考

1. =IFNA(XLOOKUP(SMALL(XLOOKUP(VSTACK(第一次!C2,第二次!C2,第三次!C2),{"A";"B";"C";"D";"E"},{1;2;3;4;5},100),1),{1;2;3;4;5},{"A";"B";"C";"D";"E"}),"")

复制代码

xlj310

联在一起，做一下筛选，做一下排序，取第一个~ 完事~
=LET(成绩表,VSTACK(第一次:第三次!$A$1:$K$30),TAKE(SORT(FILTER(CHOOSECOLS(成绩表,COLUMN(C1)),(CHOOSECOLS(成绩表,1)=$A2)*(CHOOSECOLS(成绩表,2)=$B2)*(CHOOSECOLS(成绩表,COLUMN(C1))<>0))),1))

xlj310

我会修电视 发表于 2024-11-22 10:05
供参考

你这个也太投机取巧了吧？ 三个表的人名顺序要一致，你的公式才能得到正确的结果。如果人名顺序混乱，你这个就不一定正确了吧？

adud

liulang0808 发表于 2024-11-22 09:08
楼主的所有表格，如果数据位置是完全对应的，可以不用字典，直接对应位置判断赋值

每次有事,都是你帮忙解决,非常感谢

adud

yynrzwh 发表于 2024-11-22 09:31

谢谢,我来试试看看能不能改成我想要的结果

沧海一粟123123

Sub test()
Dim arr1, arr2, arr3
Dim brr(1 To 3)
Dim x, y, k As Integer

k = Sheet1.Range("a65536").End(xlUp).Row
arr1 = Sheet2.Range("c2:k" & k)
arr2 = Sheet3.Range("c2:k" & k)
arr3 = Sheet4.Range("c2:k" & k)
arr = Sheet1.Range("c2:k" & k)
For x = 1 To UBound(arr, 1)
    For y = 1 To UBound(arr, 2)
        If arr1(x, y) = "" Then
            brr(1) = 80
        Else
            brr(1) = Asc(arr1(x, y))
        End If
        If arr2(x, y) = "" Then
            brr(2) = 80
        Else
            brr(2) = Asc(arr2(x, y))
        End If
        If arr3(x, y) = "" Then
            brr(3) = 80
        Else
            brr(3) = Asc(arr3(x, y))
        End If
        arr(x, y) = Chr(Application.Min(brr))
        Erase brr
    Next y
Next x
Sheet1.Range("c2").Resize(k - 1, 9) = arr
End Sub