要求：
按A列单元格内容生成工作表
同样的
要是没几个呢？
就手动新建吧
如果多呢？
那就是一些批量性重复的操作
******我是分割线******
这个比较特殊
也可以用透视表来处理
报表筛选页
******我是分割线******
用VBA来解决最快捷
操作步骤：
1、按<ALT+F11>组合键打开VBE
2、单击【插入】-【模块】
3、双击【模块1】
4、复制代码<CTRL+C>
5、粘贴代码<CTRL+V>
6、运行代码<F5>
代码如下：
'按单元格内容生成工作表
Sub test003()
Dim i As Long, LRow As Long
LRow = Sheets("汇总").Cells(Rows.Count, 1).End(3).Row
'判断有多少行
For i = 1 To LRow
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets("汇总").Cells(i, 1)
'新建工作表 移到最后 重命名
Next
Sheets("汇总").Select '回到汇总表
End Sub
******我是分割线******
有人说
总在后台点
档次太低了
想一键搞定
那就插入个按钮吧
【开发工具】
【插入】
【按钮】
【拖个矩形】
右键【按钮】
【指定宏】
选择写好的代码
确定
