﻿Sub 建立工作表()
'
' 取得分類 巨集
'

'
    my_col = ActiveCell.Column
    
    Range("A1").Select
    Columns(my_col).EntireColumn.AdvancedFilter Action:= _
        xlFilterCopy, CopyToRange:=ActiveCell.Offset(0, 11).Range("A1"), Unique:= _
        True

'
' 建立工作表 巨集
'

'
    Range("A1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    
    While ActiveCell.Value <> ""
        st_name = ActiveCell.Value
        Sheets.Add After:=ActiveSheet
        Sheets(2).Select
        Sheets(2).Name = st_name
        Sheets(1).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
    Wend
    
'
' 移除分類 巨集
'

'
    Selection.EntireColumn.Delete
End Sub
