发布网友
共2个回答
热心网友
按Alt+F8,在“宏名(M):”下的输入框内输入“批量创建表格”,单击“创建(C)”按钮,在打开的VBA编辑器里把下面的代码贴进去,按F5运行
Sub 批量创建表格()
Application.ScreenUpdating = False
Set 原表 = ActiveSheet
Workbooks.Add
ActiveWindow.Zoom = 140
Cells.Font.Size = 6
Cells.ShrinkToFit = True
模板文件名 = Environ("TEMP") & "\模板.xls"
ActiveWorkbook.SaveAs 模板文件名
ActiveWorkbook.Close
For 行 = 原表.UsedRange.Row To 原表.UsedRange.Row + 原表.UsedRange.Rows.Count + 1
数字 = 原表.Cells(行, 1)
If 数字 <> "" Then
Workbooks.Add 模板文件名
文件名 = "C:\" & 原表.Cells(行, 1) & ".xls"
ActiveWorkbook.SaveAs 文件名
ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
End Sub
热心网友
可用VBA来实现。若用过宏(VBA)我可给编个程序来做。若不会用,可把表格发到yymhy@163.com帮助做好再发给你。