1.需求：根据已有名称，创建新建表格

2.代码：

Sub 创建表格1() '不在一个表格里
Application.ScreenUpdating = False
r = [a1].CurrentRegion
For i = 1 To UBound(r)With Workbooks.AddActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & r(i, 1) & ".xlsx"ActiveWorkbook.Close FalseEnd With
Next
Application.ScreenUpdating = True
End SubSub 创建表格2() '在一个表格里
Application.ScreenUpdating = False
r = [a1].CurrentRegion
For i = 1 To UBound(r)Sheets.Add.Name = r(i, 1)
Next
Application.ScreenUpdating = True
End Sub

3.效果

11.Excel vba开发-根据已有名称，创建新建表格相关推荐

Excel VBA开发中数字签名的管理
Excel 禁用无数字签署的宏网上下载的Excel文件可能含有宏病毒,因此打开Excel文件时最好不要轻易启动宏,同时为了不让"启动宏"的提示每次出现,可以在Excel设置中提高 ...
Excel VBA开发自动发送邮件
一..设置Outlook邮箱帐(略不是本文章的重点) 二..设置Outlook信任中心如下步骤若没有做如下操作设置,则Excel VBA调用Outlook自动发送邮件时提示如下 2.1 Outloo ...
【一】Excel VBA开发初探
一.启用Excel VBA开发功能 1.点击Excel左上角的[文件],然后点击文件下方的[选项] 2.[Excel选项]中点击[自定义功能区],右边勾选[开发工具],点击[确定] 3.返回excel ...
c语言错误1004,Excel VBA运行时错误1004仅以名称以'c'开头
没错.如果我将以下代码中的"Chart_Series_W_Gain_AAPL"中的'C'更改为代码工作的任何其他字母.否则它会在Series.Formula分配中引发错误1004. ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...
Excel vba开发合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等功能
写在前面: 最近老大丢给我一个数据量比较大,比较复杂的表,让我用VB去处理,刚被分到这个任务的时候一脸茫然,对Excel VB开发一点都不了解,所以就自己研究并查资料,最后终于解决了. 一.Excel ...
Excel VBA 批量取工作表名称
'批量取工作表名称 Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x < ...
1.Excel vba开发-处理空格数据
需求:excel表格数据中有的表格存在多余的空格,需要删除多余的空格. 代码 '清除所有sheet页中单元格两端的空格 Public Sub trimCell()Dim sheetCount, col ...
4.Excel vba开发-多个sheet合并成一个
需求:多个sheet合并成一个效果代码 Sub 合并当前工作簿下的所有工作表() On Error Resume Next Application.ScreenUpdating = False A ...

11.Excel vba开发-根据已有名称，创建新建表格

1.需求：根据已有名称，创建新建表格

2.代码：

3.效果

11.Excel vba开发-根据已有名称，创建新建表格相关推荐

最新文章

热门文章