VBA批量增加工作表

Posted queqiaoshui

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA批量增加工作表相关的知识,希望对你有一定的参考价值。

Sub 批量增加工作表()
Dim i As Integer
For i = 1 To 10
    
    ‘每次都在最后一张表后面增加
    Worksheets.Add after:=Sheets(Worksheets.Count), Count:=1
    ActiveSheet.Name = Sheet1.Range("a" & i).Text  ‘提取单元格文本用作新工作表名
Next

End Sub

  

以上是关于VBA批量增加工作表的主要内容,如果未能解决你的问题,请参考以下文章

用vba新建工作表,并命名

VBA 如何批量将单元格复制到另一个工作表中

执行VBA代码时工作表抖动的厉害如何避免

VBA 工作薄中所有工作表怎么用代码表示

[VBA]批量新建指定名称的工作表

vba excel怎么获取指定工作表的行数、列数