VBA实现自动增加工作表 2011-04-212011-06-11 • VBA • 6 条评论 • Aar0n •7,850 次查阅宏代码实现增加所需工作表数量!代码如下: Sub 自动增加工作表() Dim i&, userinto i = 0 userinto = InputBox("输入插入工作表数量:") If IsNumeric(userinto) = True Then Do Until i = userinto Worksheets.Add i = i + 1 Loop End If End Sub 此宏代码只是为了方便大家批量插入新的工作表数量,不需要一个个添加!不妨试验下!
呵呵 很不错的
谢谢支持!
感谢分享。VB还是很好学的
关键还是在于灵活运用,举一反三呢!
不错的东西,收下了。。
希望对你有起到帮助~