加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

[VBA常用小代码]根据指定名称,批量新建表格

(2016-04-29 16:09:34)
标签:

excel

vba代码

新建工作薄

数据分析

分类: ExcelVBA

Sub 创建表格()
Application.ScreenUpdating = False
r = [a1].CurrentRegion
For i = 1 To UBound(r)
    With Workbooks.Add
        .SaveAs ThisWorkbook.Path & "/" & r(i, 1) & ".xlsx"
        .Close False
    End With
Next
Application.ScreenUpdating = True
End Sub

/////

动画操作:http://weibo.com/5243509390/DtdnK5vrR

 

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有