如何使用autofilter筛选需要的数据

现有一张表格，一共有四列，分别是：姓名，职务，省区，性别
需要一个省份一张表格，自动生成多张sheet。每张表格只有两列，一列是省份，一列是姓名，其他信息不需要。

小弟初学vba，目前只能通过Autofilter 筛选出需要的所有列，复制到sheet中，但无法排除不需要的列。在此望高手解答！谢谢！

今天早上突然想到，是否应该利用隐藏列来完成，继续顶

用高级筛选。。。。
你的附件我打不开。。。

Private Sub 宏_Click()
Dim x As Range, rng
Application.ScreenUpdating = False
Range("A1:D" & [a65536].End(xlUp).Row).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
For Each x In Range("b2:b" & [a65536].End(xlUp).Row)
    If Application.Match(x, [b:b], 0) = x.Row Then
        Set rng = x.Offset(0, -1).Resize(Application.CountIf([b:b], x), 2)
        rng.Copy Sheets.Add(after:=Sheets(Sheets.Count)).[a2]
        ActiveSheet.Name = x
        ActiveSheet.[a1:b1] = Array("姓名", "省区")
        Sheets(1).Select
    End If
Next
Application.ScreenUpdating = True

End Sub

请参考附件，执行宏前要删除各省表，没做屏蔽处理

自己做了个附件。。。