统计求助，请大神帮忙解决

xiangme

Excel表格中有多列，其中列为班级，其他列中含有语文、数学、英语、物理、化学、生物、政治、历史、地理等列。我需要对数据进行如下处理：
具体为：
             1.弹出对话框选择班级列。
             2.弹出对话框让我选择学科列。
             3.对每个班进行筛选计数，得到每个班级的人数，按人数算出去尾人数，去尾人数=总人数*0.2（结果四舍五入），这个人数决定了本班科目统计中不计入统计的人数；完成该步骤显示人数列表在该表没有数据的列后首行。
             4.每个学科不统计的人的确定：对每个班、每个学科列中数值最小的后几名（人数等于3中算出的人数）涂色处理，按班级对每个学科统计未涂色部分的平均分。
             5.统计结果要求：行为班级，列分别为对应的语文、数学、英语、物理、化学、生物、政治、历史、地理，对应的单元格内的数据是4中未涂色部分的平均值，把统计结果放到一个新工作表中。
特别注意：不同科目中去尾的人并不一样。
恳请各位大神帮忙解决算法。

xiangme

另外补充下：去尾的部分是对每个班级、每个学科的后20%都要去尾。

Sub ProcessData()
    ' 选择班级列
    Dim classColumn As Integer
    classColumn = Application.InputBox("请选择班级列", "选择班级列", Type:=1)

    ' 选择学科列
    Dim subjectColumns As String
    subjectColumns = Application.InputBox("请选择学科列（用逗号分隔）", "选择学科列", Type:=2)
    Dim subjectColumnArray() As String
    subjectColumnArray = Split(subjectColumns, ",")

    ' 对每个班进行筛选计数
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, classColumn).End(xlUp).Row
    Dim classCount As Object
    Set classCount = CreateObject("Scripting.Dictionary")
    For i = 2 To lastRow
        Dim className As String
        className = Cells(i, classColumn).Value
        If Not classCount.Exists(className) Then
            classCount.Add className, 1
        Else
            classCount.Item(className) = classCount.Item(className) + 1
        End If
    Next i

    ' 计算去尾人数并显示人数列表
    Dim tailCount As Object
    Set tailCount = CreateObject("Scripting.Dictionary")
    For Each key In classCount.Keys
        tailCount.Add key, Round(classCount.Item(key) * 0.2)
    Next key

    ' 显示人数列表
Dim lastColumn As Long
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Dim resultRow As Integer
resultRow = 1
For Each key In tailCount.Keys
    Cells(resultRow, lastColumn + 1).Value = key
    Cells(resultRow, lastColumn + 2).Value = tailCount.Item(key)
    resultRow = resultRow + 1
Next key

End Sub
上面的代码只能实现前三步，后面对去尾涂色、算所有班的平均分，搞不定，请大神出手。

xiangme

请各位大神出手相助！！！！辛苦了..........

jinlei2006

数据量好大，我也等大神看他们代码!

ykcbf1100

要求好多。
我也等有闲人来完成。。。

shiruiqiang

要求好多。有些没有用（如1、2）
我也等有闲人来完成。。。。。

熊excelhome

不知道理解的对不对，现学的窗体控件，做的第一个窗体。

xiangme

数据量也一般吧，关键在于思路，本人愚钝，请大神出手

xiangme

熊excelhome 发表于 2023-7-6 23:18
不知道理解的对不对，现学的窗体控件，做的第一个窗体。

非常感谢您！我需要的所有学科和所有班级一次出来。选范围是因为不同年级，考试科目多少不一样。再次表示感谢！

熊excelhome

xiangme 发表于 2023-7-7 07:41
非常感谢您！我需要的所有学科和所有班级一次出来。选范围是因为不同年级，考试科目多少不一样。再次表示 ...

统计后新表的格式，发个截图看看。