小弟再求助大神，学生成绩排序问题

cjc209

说半天 直接说排名规则就行了 小学文化都没有毕业

zzzxxxmmm

zpy2

create temp table aa as
select rowid old_rowid,年级总平,语文均分,语文高分,数学均分,数学高分,英语均分,英语高分,政治均分,政治高分,历史均分,历史高分,地理均分,地理高分,物理均分,物理高分,化学均分,化学高分,生物均分,生物高分 from Sheet1 where 统计类别 like 'A' and rowid>2;
cli_one_dim~temp.aa~1;
//select * from aaunion where 属性 not like '%高分%';
create temp table bb as
select  old_rowid,属性||'</td><td>名次' col,数量||'</td><td>'||rank() over ( partition by 属性 order by cast(数量 as float) desc) `data` from aaunion where 属性 not like '%高分%' order by old_rowid,instr('年级总平,语文均分,语文高分,数学均分,数学高分,英语均分,英语高分,政治均分,政治高分,历史均分,历史高分,地理均分,地理高分,物理均分,物理高分,化学均分,化学高分,生物均分,生物高分',属性);
//select * from bb;
cli_create_two_dim_no_order~bb~col~data;
select old_rowid,`学 校`,班级,学生人数,`巩固率%`,bb_two_dim.* from Sheet1 join bb_two_dim on sheet1.rowid=(old_rowid);

得确比较繁琐的。这个表头标题堆叠不太方便。

zzzxxxmmm

用函数我做了一个模板，填充数据就能得出来。

zzzxxxmmm

再次感谢，谢谢。。。

zzzxxxmmm

感谢ykcbf1100，，我用你的代码，加入了循环，。谢谢


Sub ykcbf()  '//2024.1.31
    Dim j As Integer
    Dim k As Integer
        Dim n As Integer
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Sheets("Sheet2")
        .UsedRange.Clear
            Sheets("Sheet1").Cells.Copy .[a1]
        .DrawingObjects.Delete
                With .UsedRange
                    .NumberFormatLocal = ""
                    .Value = .Value
                End With
        arr = .UsedRange
        Set Rng = .Rows(UBound(arr) + 1)
            For i = 5 To UBound(arr)
                If arr(i, 5) = "B" Then
                    Set Rng = Union(Rng, .Rows(i))
                End If
            Next i
        If Not Rng Is Nothing Then Rng.EntireRow.Delete '删除E列中含"B"的行
        
        r = .Cells(Rows.Count, 1).End(3).Row  '统计总行数
            .Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   'G列前插入一列
               
           For k = 7 To 25 Step 2
              .Cells(6, k).FormulaR1C1 = "=RANK(RC[-1],R5C" & k - 1 & ":R" & r - 3 & "C" & k - 1 & ")"  '循环G列开始，隔一列写入公式 “=RANK(F6,$F$5:$F$281)”
                    For n = 0 To 16 Step 2
                    .Range("G6:G" & r - 3).Offset(0, n).FillDown   '向下填充公式
                    Next n
           Next k
      
                      .Range("G3") = Range("F3")      '写入列标字段名
                      For j = 7 To 25 Step 2
                        .Cells(4, j) = "名次"
                        .Cells(5, j) = ""
                      Next j
     End With
     Application.ScreenUpdating = True
     Sheets("Sheet2").Select   '选中sheet2表
     Range("A5").Select
    MsgBox "OK！"
End Sub

zzzxxxmmm

ykcbf1100 发表于 2024-1-31 18:03
我呢有个原则，对于不送花的，每个帖子原则上我只帮一次，不包售后。
我呢，其实已经帮过你多次了，我可 ...

谢谢，我也在努力学习，只是水平确实不行，进步很慢。只知道点基础的。

zzzxxxmmm

再学习，更新循环语句。。。谢谢大神。

Sub ykcbf()  '//2024.1.31
    Dim j As Integer
    Dim k As Integer
        Dim n As Integer
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Sheets("Sheet2")
        .UsedRange.Clear
            Sheets("Sheet1").Cells.Copy .[a1]
        .DrawingObjects.Delete
                With .UsedRange
                    .NumberFormatLocal = ""
                    .Value = .Value
                End With
        arr = .UsedRange
        Set Rng = .Rows(UBound(arr) + 1)
            For i = 5 To UBound(arr)
                If arr(i, 5) = "B" Then
                    Set Rng = Union(Rng, .Rows(i))
                End If
            Next i
        If Not Rng Is Nothing Then Rng.EntireRow.Delete '删除E列中含"B"的行
        
        r = .Cells(Rows.Count, 1).End(3).Row  '统计总行数
            .Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   'G列前插入一列
               
           For k = 7 To 25 Step 2
              .Cells(6, k).FormulaR1C1 = "=RANK(RC[-1],R5C" & k - 1 & ":R" & r - 3 & "C" & k - 1 & ")"  '循环G列开始，隔一列写入公式 “=RANK(F6,$F$5:$F$281)”
                    For n = 0 To 16 Step 2
                    .Range("G6:G" & r - 3).Offset(0, n).FillDown   '向下填充公式
                    Next n
           Next k
      
                      .Range("G3") = Range("F3")      '写入列标字段名
                      For j = 7 To 25 Step 2
                        .Cells(4, j) = "名次"
                        .Cells(5, j) = ""
                      Next j
     End With
     Application.ScreenUpdating = True
     Sheets("Sheet2").Select   '选中sheet2表
     Range("A5").Select
    MsgBox "OK！"
End Sub

yynrzwh

xx初2026级学校分班均分高分统计表.rar (107.35 KB, 下载次数: 7)

2024-2-1 11:22 上传

点击文件名下载附件

zzzxxxmmm

yynrzwh 发表于 2024-2-1 11:22

谢谢大神的出手帮助。。。