二、批量新建工作薄
首先我们将想要新建工作薄的姓名直接粘贴在A列中,需要注意的是在这里是不需要表头的,然后我们点击开发工具找到visual basic 找到对应的工作表,然后将如下代码粘贴进去,然后点击运行即可,在这里我们是将新建的excel存放在D盘的根目录下
Sub xj()
Dim i
Dim s
For i = 1 To WorksheetFunction.CountA([a:a])
s = Cells(i, 1)
ActiveWorkbook.SaveAs "D:" & s & ".xlsx"
Next
End Sub
最后我们可以来看下运行的效果
以上就是我们在excel中批量新建工作表以及工作薄的方法,怎么样?你学会了吗?
我是excel从零到一,关注我持续分享更多excel技巧