初学者提问！如何根据excel某一列的不同内容将excel切割成几个excel呢？_VBA

菜鸟提问！！怎么根据excel某一列的不同内容将excel切割成几个excel呢？？
比如我第一列有10000行，值分别是1，2，3这三个数字之一。
我想通过vba代码把这个excel根据这一列的值的差异分成3个excel，请问代码应该怎么写啊？
求教了！！

------解决方案--------------------------------------------------------

VB code

Sub SeperateSheet()    Dim strCriteria, FileName, i    Application.DisplayAlerts = False    strCriteria = Array("1", "2", "3")    For i = 0 To 2        With ActiveSheet.UsedRange            .AutoFilter Field:=1, Criteria1:=strCriteria(i)           FileName = ThisWorkbook.Path & "\" & strCriteria(i) & ".xls"             On Error Resume Next             Application.DisplayAlerts = False             Kill FileName             Application.DisplayAlert = True            Set wk = Workbooks.Add            .SpecialCells(xlCellTypeVisible).Copy wk.ActiveSheet.[a1]            wk.SaveAs FileName:=FileName, FileFormat:=xlExcel8            wk.Close        End With    Next    ActiveSheet.UsedRange.AutoFilter    Application.DisplayAlerts = True    MsgBox "Done"End Sub