VBA实现自动增加工作表

• VBA • 6 条评论 • •7,950 次查阅

VBA实现自动增加工作表

宏代码实现增加所需工作表数量！

代码如下：

 
  1. Sub 自动增加工作表()   
  2. Dim i&, userinto   
  3. i = 0  
  4. userinto = InputBox("输入插入工作表数量：")   
  5. If IsNumeric(userinto) = True Then   
  6. Do Until i = userinto   
  7. Worksheets.Add   
  8. i = i + 1  
  9. Loop   
  10. End If   
  11. End Sub   

此宏代码只是为了方便大家批量插入新的工作表数量，不需要一个个添加！

不妨试验下！

分享到：

6 条评论

点击这里取消回复。

昵称▼
  1. IT技术交流网

    呵呵 很不错的

    1. Kael.Z

      谢谢支持！

  2. 自贡SEO

    感谢分享。VB还是很好学的

    1. Kael.Z

      关键还是在于灵活运用，举一反三呢！

  3. 沈奇超

    不错的东西，收下了。。

    1. Kael.Z

      希望对你有起到帮助~