VBA实现自动增加工作表

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   

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

不妨试验下!

分享到: