VBA-resize练习

姓名	班级	语文	数学	英语		A001	1班	68	67	87
A001	1班	68	67	87		A006	1班	69	79	75
A002	2班	91	51	92		A008	1班	63	75	85
A003	3班	91	78	72		A012	1班	76	85	51
A004	2班	85	72	56
A005	2班	50	69	92
A006	1班	69	79	75
A007	3班	62	55	78
A008	1班	63	75	85
A009	3班	90	99	82
A010	2班	66	62	66
A011	3班	86	86	54
A012	1班	76	85	51
要求：筛选出一班的所有记录

 

Sub size()
Dim rng As Range, n%
For Each rng In [b2:b13]
    If rng.Value = "1班" Then
    n = n + 1
    Cells(n, "g").Resize(1, 5) = rng.Offset(0, -1).Resize(1, 5).Value
    End If
    Next rng
End Sub