数据：
要求：如果性别为“男”，按工号命名创建工作簿
效果如下：
VBA实现代码：
Sub create_table()
Dim rg As Range, n
For Each rg In Range(Sheet2.[g1], Sheet2.Cells(Rows.Count, 7).End(xlUp))‘遍历需要判断的数据列’
n = n + 1
If rg.Value = "男" Then
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = Sheet2.Cells(n, 5) ‘在工作簿最后表的后面新增表’
End If
Next rg
End Sub