VBA实现自动增加工作表

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

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 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼
  1. IT技术交流网

    呵呵 很不错的

    1. Kael.Z

      谢谢支持！

  2. 自贡SEO

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

    1. Kael.Z

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

  3. 沈奇超

    不错的东西，收下了。。

    1. Kael.Z

      希望对你有起到帮助~