超简单的VBA工作表数据拆分：借助Excel数据透视表特殊能力，只需几行VBA代码，就可以把一个超大的Excel工作表按照某一列分类拆分到不同的工作表，并用相应类别命名每一个工作表。。。

加入博主的VIP群，关于Office数据的内容（Excel, Access,VBA,PowerPivot，DAX）全在这里了，一杯咖啡的价格学习所有，提升个人生产力，跟着老司机不迷路！[嘻嘻] 点击右侧链接加入：http://t.cn/A6xiMaWH

Sub 宏1()
'
For r = 4 To 10
ThisWorkbook.Worksheets("Sheet2").Cells(r, 2).ShowDetail = True
ActiveSheet.Name = ThisWorkbook.Worksheets("Sheet2").Cells(r, 1).Value
Next

End Sub http://t.cn/A6xXaHjV