如何按班级显示每个班的数据。

zwf2003 · 发表于 2024-3-29 12:34

如何在班级后面的单元格选择不同的班级，这个表格根据该单元格的内容显示该班级的信息，然后专业后面的单元格自动按所对应的班级填写进去。感谢各位大神。

swl4561255 · 发表于 2024-3-29 12:55

Sub test()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Rows.Hidden = False
For i = 3 To [A1].End(4).Row
If Cells(i, 7) <> Cells(1, 6) Then
Range("G" & i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

3190496160 · 发表于 2024-3-29 13:23

Sub 筛选()
With ActiveSheet
zd = .[f1]
If zd = "" Then End
r = .Cells(Rows.Count, 1).End(xlUp).Row
.AutoFilterMode = False
.[A2:h2].AutoFilter
.Range("a2:h" & r).AutoFilter Field:=7, Criteria1:=zd, Operator:=xlAnd
End With
End Sub

3190496160 · 发表于 2024-3-29 13:24

3190496160 · 发表于 2024-3-29 13:25

专业班级.rar (29.73 KB, 下载次数: 4)

		自动登录	找回密码
密码			免费注册

[求助] 如何按班级显示每个班的数据。