VBA利用自动筛选拆分数据到不同工作表

示例代码如下：

Sub copyfilter()Dim rng As RangeSet rng = Sheet1.Range('A1').CurrentRegion '定义原始数据区域Sheet1.AutoFilterMode = False '清楚已有的筛选，如果有的话For i = 1 To 5 '此处1-5代表“班组”列有5个唯一值，根据所选列调整rng.AutoFilter 7, i '此处7代表第7列，根据需要调整rng.SpecialCells(xlCellTypeVisible).CopyWorksheets.Add(After:=Sheets(Sheets.count)).Name = Str(i) & '组' '为新加工作表命名，需要根据上面所选的具体拆分列调整命名方式Worksheets(Str(i) & '组').PasteNextEnd Sub