Sub 符合条件的建立一个工作表并以条件命名()
Dim rng As Range
For Each rng In Sheets("列表").Range("B2", Cells(Rows.Count, 2).End(xlUp))
If rng.Value = "男" Then
Sheets.Add(after:=Sheets(Sheets.Count)).Name = rng.Offset(0, -1).Value
End If
Next
End Sub