在EXCEL中，用VB宏如何实现：在所有查找结果中有“班级一”的单元格中里再查找“刘”

假设 班级是A3:A1000
人名在 B3:B1000
找寻"班级一" 中 所有 姓 "刘" 放在 D列 及 E列
代码如下:
Sub FIND_NAME()
a = "班级一"
b = "刘"
Set xx = [A3:A1000]
For Each x In xx
If IsEmpty(x) Then Exit Sub
If x.Value = a And Mid(x.Offset(0, 1), 1, 1) = b Then
r = r + 1
xx(r).Offset(0, 3) = x.Value
xx(r).Offset(0, 4) = x.Offset(0, 1)
End If
Next