作者：乔山办公网日期：
返回目录：excel表格制作
代码及注释如复下：
Sub shanchu()
Application.DisplayAlerts = False'关闭提示制，否则每删除一个知非空工道作表，都会出现提示
For i = 2 To [g65536].End(3).Row'i从2到G列最后一个非空行数循环
Sheets(Cells(i, 7).Delete'将工作表名为G列对应的工作表删除
Next
Application.DisplayAlerts = True'开启提示
End Sub
工具百：Office2013
方法如下：
1.在当前Excel文件所在文件夹中，创建以度A列内容为名称的文件夹：回
2.Alt+F11，输入代码如下：
3.F5执行代码，返回当前文件所在文件夹，就可以看到批量创建了答A列内容为名称的文件夹：
步骤如下：
1.选中单元格
2.公式，名称管理器
3.点击新建
4.输入名称
5.确定即创建成功；重复上述步骤，或者录制宏，或者写VBA代码完成重复制作。
名称的话可以用百VBA建立
Sub 定义名称()
For i = 3 To Sheet1.[A65536].End(xlUp).Row
j = Sheet1.Cells(i, 1000).End(xlToLeft).Column
ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!度R" & i & "C2:R" & i & "C" & j
Next
End Sub
'测试结果如下知
从第三道行开始执行，支持版65536行和1000列范围内的名权称定义