excel批量命名

发布网友

我来回答

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帮助做好再发给你。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com