在A列进行筛选就行了，可以把筛选过程录制成宏。
Sub Macro1()
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="一班"
End Sub
sub tt()
dim i%
for i=2 to 10 '2到10行
if cells(i,2).value<>"一班" then rows(i).hidden=true 'B列判断
next
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024