批量新建指定名称的工作表
本文为随书问题参考答案
：
Sub 新建工作表()
Dim Irow As Integer, Sht As Worksheet
Irow = 2
Set Sht = Worksheets("数据")
On Error Resume Next
Do While Sht.Cells(Irow, "A").Value <> ""
If Worksheets(Sht.Cells(Irow, "A").Value) Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sht.Cells(Irow, "A").Value
End If
Irow = Irow + 1
Loop
End Sub
以上过程供参考。
VBA Excel图文教程版权声明
本文来自投稿，不代表本站立场，转载请注明出处。
上一篇：将人民币数字金额转为中文大写
下一篇：VBA | 用自定义函数提取字符
