如何在excel表格中,把某一区域内所有不及格学生的名字都提取到另外指定的单元格里

2025-03-25 13:19:00
推荐回答(2个)
回答1:

写了个代码
使用方法,首先【选中】学生和成绩区域,比如图中的A5:D14(有多少,选多少)
然后执行代码
会在选中区域的下面5行开始,生成需要的名单

Sub n()
x1 = Selection(1).Row
y1 = Selection(1).Column
x2 = Selection(Selection.Count).Row
y2 = Selection(Selection.Count).Column
For i = y1 + 1 To y2 Step 2
For j = x1 To x2
If Cells(j, i) <> "" And Cells(j, i) < 60 Then
o = o & Cells(j, i - 1) & "、"
End If
Next j
k = k + 1
Cells(x2 + k + 5, y1) = Cells(x1 - 2, i - 1)
Cells(x2 + k + 5, y1 + 1) = Left(o, Len(o) - 1)
o = ""
Next i
End Sub

回答2:

这个要求用公式应该很难吧,建议用VBA写宏代码。
不过图片上连个很列标都没有。