精华内容
下载资源
问答
  • VBA 拆分工作簿并命名

    2019-01-14 14:57:00
    Sub 拆分工作簿并命名() Dim mypath As String Dim sh As Worksheet Dim file_name As String ...mypath = ThisWorkbook.Path ... sh.Copy '这条语句会复制工作表并放在一个新建工作簿 file_name...
    Sub 拆分工作簿并命名()
    
    Dim mypath As String
    Dim sh As Worksheet
    Dim file_name As String
    
    mypath = ThisWorkbook.Path
    
    For Each sh In Worksheets
        sh.Copy '这条语句会复制工作表并放在一个新建工作簿
        file_name = ActiveWorkbook.Worksheets(1).Range("a1")
        '连接时 & 符号前面要加一个空格
        
        ActiveWorkbook.SaveAs mypath & "\" & file_name & ".xlsx"
        ActiveWorkbook.Close True
        
        
        
        
    Next
    
        
    
    End Sub
    

      

    转载于:https://www.cnblogs.com/queqiaoshui/p/10266763.html

    展开全文
  • https://zhuanlan.zhihu.com/p/115191339​zhuanlan.zhihu.com本次将用VBA的方式快速新建多张工作表并命名,基于上篇文章中对插入工作表和计算工作表数的分析。https://zhuanlan.zhihu.com/p/335006699​zhuanlan....

    在之前的一篇文章中,分享过用数据透视表的方法批量新建工作表。

    https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com

    本次将用VBA的方式快速新建多张工作表并命名,基于上篇文章中对插入工作表和计算工作表数的分析。

    https://zhuanlan.zhihu.com/p/335006699zhuanlan.zhihu.com

    一、先来看一下如何在VBA中给工作表命名,用到的一个属性类型的动作就是Name。

    1. 打开Visual Basic,添加一个新的模块和过程,称之为“命名工作表”。

    732fadc650ce1f031b6921900df68ade.png
    Sub 命名工作表()
    
    
    
    End Sub

    2. 添加命名工作表的代码,这里比如要修改Sheet1的名字为“表1”。

    3d08c310ba6534d04c835478dd8c59f3.png
    Sub 命名工作表()
    
    Sheet1.Name = "表1"
    
    End Sub

    3. 执行以上代码后,在Excel中可以看到当前工作表的名称已经改变了。

    e8ea69021a7be5b044f4d7200b79e5fe.png

    二、新增多张工作表并为其命名

    1. 打开Visual Basic,添加一个新的模块和过程,称之为“新建工作表”。

    214f4a952423a81db3532db14a4476a0.png
    Sub 新建工作表()
    
    
    
    End Sub

    2. 如之前的案例,创建2020年1至12月共12张工作表。这里在过程中添加一个for循环,让新增工作表的执行动作重复12次,即要新建12张工作表。

    0bf585f6144c9416ce80cb162a9a2ccc.png
    Sub 新建工作表()
    
    Dim i As Integer
    
    For i = 1 To 12
    
    
    
    Next
    
    End Sub

    3. 写入新建工作表的代码。

    05964a2405befd170f8a80125346b14f.png
    Sub 新建工作表()
    
    Dim i As Integer
    
    For i = 1 To 12
    
        Sheets.Add after:=Sheets(Sheets.Count)
        
        Sheets(Sheets.Count).Name = "2020年" & i & "月"
    
    Next
    
    End Sub

    4. 分析一下带Sheets的这一段代码。

    1) Sheets.Add after:=Sheets(Sheets.Count):每次在新增工作表时都在最后一张工作表的后面执行。

    2) Sheets(Sheets.Count).Name = “2020年”& i & “月”:

    • 这里的Sheets.Count返回的值和上一行代码中的不一样,上一行中返回的值是当前工作表总数,而这行返回的是新增工作表后的工作表总数,在此例中即为上一行的Sheets.Count+1;
    • .Name后面用“=”符号赋值,然后命名为如“2020年1月”、“2020年2月”等。

    5. 执行以上代码后,即可在Excel文件中新增12张工作表。

    f381f1927f481cf2f425ec6d2996cb80.png

    相比之前用数据透视表的方法,VBA通过几行代码即可快速新建工作表,效率提高了很多。

    参考视频:

    知乎视频www.zhihu.com
    展开全文
  • VBA代码实例---批量新建工作表模板 ¤升级内容¤ 新建了工作表之后,把新建的工作表,一个工作表新建到工作簿中,以工作表的名称命名工作簿。 ¤新增知识点¤ 通过剪切的方式,新建工作簿。 ¤代码示例¤ ...

    对上一篇博文进行补充:

    VBA代码实例---批量新建工作表模板

    ¤升级内容¤

    新建了工作表之后,把新建的工作表,一个工作表新建到工作簿中,并以工作表的名称命名工作簿。

    ¤新增知识点¤

    通过剪切的方式,新建工作簿。

    ¤代码示例¤

    Option Explicit
    
    Sub 拆分到簿()
    
        Dim i As Integer
        Dim sh As Worksheet
        Dim sName As String
        
        Dim tm As Single
        tm = Timer
        
        Dim sYuan As String
        sYuan = ActiveSheet.Name
        
        '第一行为标题,所以从第二行开始,如果无标题应该i=1
        For i = 2 To Worksheets(sYuan).Range("A1").CurrentRegion.Rows.Count
        
            sName = Worksheets(sYuan).Range("A" & i).Value
            
            '判断工作表是否存在,如果不存在就新建
            On Error Resume Next
            Set sh = Worksheets(sName)    '如果工作表不存在,报错并返回非零值给Err.Number
    
            If Err.Number <> 0 Then
                Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))
                sh.Name = sName
            End If
        
        Next i
    
        Worksheets(sYuan).Select
        
        'MsgBox "拆分完成,耗时:" & Format(Timer - tm, "0.00000") & "秒"
        
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Dim wb As Workbook
    
        For i = Worksheets.Count To 1 Step -1
        
            sName = Worksheets(Worksheets.Count).Name
            If sName = sYuan Then Exit For
            Worksheets(i).Move
            Set wb = ActiveWorkbook
            wb.SaveAs ThisWorkbook.Path & "\Test\" & sName & ".xlsx"
            wb.Close
            
        Next i
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    
        'MsgBox "工作簿新建完成,耗时:" & Format(Timer - tm, "0.00000") & "秒"
    
    End Sub
    
    自此,就是一个完整的可以应用的代码,马上你会看到应用,半个馒头,坚持一下下。


    展开全文
  • 第一部分是新建一个汇总的工作表重新自定义命名; 第二部分是逐一将各个工作表复制粘贴到汇总工作表中; 第三部分为提示,即当合并工作完成后弹出提示。 代码如下: Sub Comb() Dim i% On Error Resume Next ...

    代码分为三部分:
    第一部分是新建一个汇总的工作表,并重新自定义命名;
    第二部分是逐一将各个工作表复制粘贴到汇总工作表中;
    第三部分为提示,即当合并工作完成后弹出提示。

    代码如下:

    Sub Comb()
    
    Dim i%
    
    On Error Resume Next
    
    Sheets(1).Select
    
    Worksheets.Add '新建一个工作表
    
    Sheets(1).Name = "汇总工作表" '对新建工作表重命名
    
    For i = 2 To Sheets.Count 'For循环,遍历所有工作表
    
    Sheets(i).Activate '激活工作表
    
    Range("a1").Select
    
    Selection.CurrentRegion.Select '选择活动工作表数据区域
    
    Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中
    
    Next
    
    MsgBox ("工作表已全部合并到指定工作表中!") '弹窗提示合并完成
    
    End Sub
    

    在这里插入图片描述在这里插入图片描述

    展开全文
  • VBA代码实例---一个工作表拆分为N个工作表

    万次阅读 多人点赞 2017-04-18 22:53:29
    这是一个常用而且经典的例子:根据内容,把一个工作表中的内容,拆分到N个工作表中,根据内容命名新建工作表。 ¤主要知识点¤ 1、影响代码执行闪屏以及提示框的处理: Application.ScreenUpdating = False ...
  • Hello,大家好,今天跟大家分享下如何制作excel的工作表...新建工作表首先我们需要新建一个工作表将它放在excel文件的第一个位置,将A1单元格的值命名为目录2.输入代码点击开发工具,然后点击visual basic打开vba编...
  • Hello,大家好,今天跟大家分享下如何制作excel的工作表...新建工作表首先我们需要新建一个工作表将它放在excel文件的第一个位置,将A1单元格的值命名为目录2.输入代码点击开发工具,然后点击visual basic打开vba编...
  • 常用VBA小技巧

    2019-10-07 03:38:43
    用对话框选取文件路径(单个文件) ...增加新的工作表并并命名 Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "333" 检查工作表是否存在,若不存在则新建 '参数: ' S...
  • 例,将活动工作薄中自动新建工作表并将其命名为“员工考勤表”。1.打开VBE窗口,点击菜单“插入”→“模块”,在工作簿中新建“模块2”,双击该模块,打开如下图:2.将光标定于“模块2”对应的代码窗口中,点击菜单...
  • 完成将多张表合并到一个工作簿中,标签命名,增加制表日期。 簿与簿直接的操作基本如下: 1.一簿一之间的复制 一对一 2.多个一簿一的合并 3.多个一簿多与一簿一的合并 现在在目录下新建文件夹test,...
  • 03034新建工作表并重命名 03035复制工作表 03036移动工作表 03037删除工作表 03038保护工作表 03039撤销保护工作表 03040按工作表名称重新排列工作表 03041选定工作表 03042激活工作表 03043显示选定工作表的快捷...
  • 新建一张工作表并命名为“日报正文”。② 在A1单元格处输入通报标题,合并A1:H1单元格,并设置字体大小及排版居中。③ 添加日期下拉输入控件,可直接复制“数据转化”表中已设置好的下拉控件。④ 输入、设置...
  • 2.再另外打开你自己需要操作的另一个Excel文件,保持你要操作的工作表做为当前活动工作表; 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏,然后选择本EXCEL文件中的宏InsertPic3); 4.然后会出现文件夹选择...
  • 首先说以下.xlsm文件和.xlsx文件的区别: .xlsx文件只能存储数据,不能存储对数据进行处理的VB代码,而.xlsm文件既可以存储数据,又可以存储代码。...图中红圈1表示当前工作簿的第一个工作表,系统命名为Sh...
  • 1、 新建一个工作表,选择菜单【数据】—【导入外部数据】—【新建数据库查询】, 界面如图,由于查询excel数据库的内容,因此选择【Excel Files*】确定; 2、 弹出〖选择工作簿〗对话框,选择“销售”工作簿,...
  • Excel合并多个sheet表格

    2017-11-04 14:23:40
    %1、在合并数据的文件夹中新建excel,重新命名 %2、打开此工作薄。 %3、%在EXCEl界面按Alt+F11打开VBA编辑器,插入新的模块(插入/模块), % 或者在任意一个sheet名称上点右键,选择“查看代码”即能够进入VBA编辑...
  • excel 工具箱

    2012-01-22 15:04:34
    【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 【破解...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 【破解...
  • Excel百宝箱

    2012-10-27 17:09:21
    【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 【破解...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【筛选唯一值】【建工作表目录】【批量新建复制工作表】【批量加解密】【工作表批量命名】【破解工作表/簿密码】 【批量命名文件】【可还原的合并】【合并列中相同值】【取消合并还原数据】【合并区域自动换行】...
  • 【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 ...
  • 【批量新建/复制工作表】批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名 【批量加解密】批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码) 【破解工作表/簿...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 【破解...
  • 新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • 新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • 新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • 新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为...
  • 【批量新建/复制工作表】:批量新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名工作表批量加解密】:批量对工作表进行加密码、解除密码(只能批量解除自己设置的密码)。 【破解...

空空如也

空空如也

1 2
收藏数 34
精华内容 13
关键字:

vba新建工作表并命名