用函数或VBA提取不及格学生名单！

pjiang

用代码写了一下,,,,,,,,,,,,,,,,,,

lc16whj

pjiang 发表于 2024-10-21 10:48
用代码写了一下,,,,,,,,,,,,,,,,,,

感谢高手再次出手相助！

lc16whj

pjiang 发表于 2024-10-21 10:48
用代码写了一下,,,,,,,,,,,,,,,,,,

高手，增加了其他学科，运行代码报错，能不能再修改一下代码？

混沌音符

lc16whj 发表于 2024-10-21 16:57
高手，增加了其他学科，运行代码报错，能不能再修改一下代码？

把elseif上面的end if都删掉，只保留next上面的end if

lc16whj

混沌音符 发表于 2024-10-21 19:41
把elseif上面的end if都删掉，只保留next上面的end if

elseif上面的end if都删掉了，运行时错误“1004”，高手，现在怎么修改，见附件！

ericxzhou

Python+Pandas:
import pandas as pd

f = pd.ExcelFile('pandas exercise/sample506.xlsx')
df = f.parse('成绩', index_col=[0, 1, 2])
df = df.stack().reset_index(level=3)
df.columns = ['学科', '分数']

df1 = f.parse('不及格名单', usecols='g:i', nrows=10)
df1.columns = df1.columns.str.replace('.1', '')

conditions = [(df['学科'] == df1.iloc[i, 0])&(df['分数'] < df1.iloc[i, 2]) for i in df1.index]
df2 = pd.concat([df[condition] for condition in conditions]).reset_index()
df2.sort_values(['班级', '姓名', '学科'])

lc16whj

ericxzhou 发表于 2024-10-21 21:01
Python+Pandas:
import pandas as pd

Python+Pandas，太深奥了，学不会

混沌音符

1. With Sh1
   
2. Set rng = .Range(.Cells(2, 1), .Cells(row1, col1))
   
3. End With

复制代码

ylj518

Sub test00()
Dim arr(), arr0()
Dim i&, k&

'重写数组
arr = Sheet1.Range("a1").CurrentRegion
ReDim arr0(1 To UBound(arr), 1 To 5) '


'判断

k = 1
For i = 2 To UBound(arr)
    '语文
    If (arr(i, 4)) < 72 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "语文"
        arr0(k, 5) = arr(i, 4)
        k = k + 1
   
    '数学
    ElseIf (arr(i, 5)) < 72 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "数学"
        arr0(k, 5) = arr(i, 5)
        k = k + 1
   
    '英语
    ElseIf (arr(i, 6)) < 72 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "英语"
        arr0(k, 5) = arr(i, 6)
        k = k + 1
   
     '物理
    ElseIf (arr(i, 7)) < 48 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "物理"
        arr0(k, 5) = arr(i, 7)
        k = k + 1
   
     '化学
    ElseIf (arr(i, 8)) < 42 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "化学"
        arr0(k, 5) = arr(i, 8)
        k = k + 1
   
     '政治
    ElseIf (arr(i, 9)) < 48 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "政治"
        arr0(k, 5) = arr(i, 9)
        k = k + 1
   
     '历史
    ElseIf (arr(i, 10)) < 48 Then
        arr0(k, 1) = arr(i, 1)
        arr0(k, 2) = arr(i, 2)
        arr0(k, 3) = arr(i, 3)
        arr0(k, 4) = "历史"
        arr0(k, 5) = arr(i, 10)
        k = k + 1
    End If
Next

'写入
For i = 1 To UBound(arr0)
   With Sheet2
        If Not IsEmpty(arr0(i, 1)) Then
                .Cells(i + 1, 1) = arr0(i, 1)
                .Cells(i + 1, 2) = arr0(i, 2)
                .Cells(i + 1, 3) = arr0(i, 3)
                .Cells(i + 1, 4) = arr0(i, 4)
                .Cells(i + 1, 5) = arr0(i, 5)

        End If
    End With
Next

End Sub

pjiang

lc16whj 发表于 2024-10-21 16:57
高手，增加了其他学科，运行代码报错，能不能再修改一下代码？

endif都删了，留最后一个