第1个回答 2017-03-14
这个需要使用宏来完成,请自行学习基本的宏知识,然后使用如下代码:
新建:
Sub 新建()
For i = 1 To 50
Worksheets.Add
Next
End Sub
说明,以上代码可以生成50个新表格。
改名:
Sub 批量改名()
For i = 1 To 50
Sheets(i).Name = Cells(i, 1)
Next
End Sub
说明:以上代码可以从当前表格 A列从 1到50读取资料,然后命名给对应1-50个工作表。本回答被提问者采纳