精华内容
下载资源
问答
  • 新增工作表 指定名字,位置等等 Sub 指定位置插入指定名的sheet() Dim wb As Workbook Dim sh As Worksheet Set wb = ThisWorkbook Rem Sheets.Add(before:=Sheets("e_1"), after:=Sheets("e_2"))....

    新增工作表

    指定名字,位置等等

     

     

     

    Sub 指定位置插入指定名的sheet()

     

    Dim wb As Workbook

    Dim sh As Worksheet

     

    Set wb = ThisWorkbook

    Rem Sheets.Add(before:=Sheets("e_1"), after:=Sheets("e_2")).Name = "newsheet"

    Rem before after没成功同时生效过,数量,type?  参数之间用, ???

     

    Sheets.Add(after:=Sheets("e_2")).Name = "newsheet"

    End Sub

     

     

    然后,多个sheet呢

     

    Sub 加一批表()

    Dim arr1

     

    arr1 = Array("a", "b", "c", "d")  'arr1()=这样不行?

     

    For i = 0 To UBound(arr1)

        Sheets.Add

        ActiveSheet.Name = arr1(i)

        Rem ActiveSheet.Close   '不支持 activesheet.close? 也不用关?

       

    Next

       

    End Sub

     

     

     

     

    Sub 加一批表()

    Dim arr1

     

    arr1 = Array("a", "b", "c", "d")  'arr1()=这样不行?

    arr2 = Sheets("e_1").Range("a1:a3")   '数组应该不是对象,赋值不用set

     

     

     

    For i = 0 To UBound(arr1)

        Sheets.Add

        ActiveSheet.Name = arr1(i)

        Rem ActiveSheet.Close   '不支持 activesheet.close? 也不用关?

       

    Next

       

    Rem 二维数组,记住 x y 坐标系分别是 row column

    For j = 1 To UBound(arr2, 1)   '这里是从EXCEL二维表里取的数组,index不能为0开始

        Sheets.Add

        ActiveSheet.Name = arr2(j, 1) '记得这是从二维数组里取数。二维数组其实就是EXCEL表。

    Next j

       

       

    End Sub

     

     

     

    11111111111

     

    Sheets.Add(Before:=Sheets(1)).Name = "DataSheet4"

    展开全文
  • Sub 新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表() Dim i As Integer '新增工作表,并移动到第一个位置,用于写入核实首列数据 Worksheets.Add.name = "核实首列" Worksheets("核实首列")....
    Sub 新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表()
        Dim i As Integer
        '新增工作表,并移动到第一个位置,用于写入核实首列数据
        Worksheets.Add.name = "核实首列"
        Worksheets("核实首列").Move before:=Sheets(1)
        For i = 2 To Worksheets.Count
            Worksheets(i).Activate
            Columns(1).Select
            Selection.Copy Worksheets(1).Cells(1, i)
        Next
        Worksheets(1).Activate
        '插入首行,用于写入工作表名字
        Worksheets(1).Rows(1).Insert shift:=xlDown
        For i = 2 To Worksheets.Count
            Cells(1, i).Value = Worksheets(i).name
        Next
        Cells(1, 1).Select
    End Sub

     

    展开全文
  • SUB 批量增加命名工作表() For L = 1 To 100 Sheets.Add(, Sheets("发票表头")).Name = "发票表" & i NEXT END SUB SUB 批量删除工作表() Application.DisplayAlerts = 0 ‘’‘关闭提示 On Error Resume ...
    SUB 批量增加命名工作表()
     For L = 1 To 100
    Sheets.Add(, Sheets("发票表头")).Name = "发票表" & i
    NEXT
    
    END SUB
    
    SUB 批量删除工作表()
    Application.DisplayAlerts = 0  ‘’‘关闭提示
    On Error Resume Next
    X = Worksheets.Count
    For i = 1 To X 
    
    Worksheets("发票表" & i).Delete
    Next
    Application.DisplayAlerts = 1
    MsgBox ("完成" & X - 3 & "个工作表删除!")
    end SUB
    
    展开全文
  • Sub 新增工作表_核实工作簿中所有工作表表头是否一致() Dim sht As Worksheet, i As Integer i = 1 Sheets.Add.Name = "表头核实" For Each sht In ThisWorkbook.Worksheets sht.Rows(1).Copy Worksheets("表头...

     这是之前的版本,2020-4-1日写的,现在回过来再看当时的代码,真的觉得当时脑子有坑,为什么这么笨,要这么写。。。

    Sub 新增工作表_核实工作簿中所有工作表表头是否一致()
        Dim sht As Worksheet, i As Integer
        i = 1
        Sheets.Add.Name = "表头核实"
        Sheets("表头核实").Move before:=Sheets(1) '将表头移动到最前面
        '遍历所有工作表,将第一行内容写入
        For Each sht In ThisWorkbook.Worksheets
            sht.Rows(1).Copy Worksheets("表头核实").Rows(i)
            i = i + 1
        Next
        Worksheets("表头核实").Activate
        Columns(1).Select
        Selection.Insert shift:=xlToRight
        Range("a1:a1").Select
        i = 1
        '遍历所有工作表,将标题内容写入
        For Each sht In ThisWorkbook.Worksheets
            Cells(i, 1).FormulaR1C1 = sht.Name
            i = i + 1
        Next
    End Sub
    

    这是新的版本,2020-5-13日写的,代码简洁了一些,也避免了因为插入第一列会有出错的可能(最初是复制整行,但是如果整行都有格式,那么插入第一列的时候就会报错,无法插入)

    Sub 新增工作表_核实工作簿中所有工作表表头是否一致_升级版()
        Dim sht As Worksheet, i As Integer, arr() As Long, r_num As Long, j As Long
        Sheets.Add.Name = "表头核实"
        Sheets("表头核实").Move before:=Sheets(1)   '将表头移动到最前面
        '遍历所有工作表,将第一行内容写入,之前是将整行写进去,但是改进之后,现在只写入有内容的数据
        For Each sht In Worksheets
            sht.Activate
            i = i + 1   'i 默认的初始值是0
            Worksheets("表头核实").Cells(i, 1) = sht.Name
            r_num = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
            sht.Range(Cells(1, 1), Cells(1, r_num)).Copy Worksheets("表头核实").Cells(i, 2)
        Next
        Worksheets("表头核实").Activate
        MsgBox ("大哥,已完成")
    End Sub
    

     

     

    展开全文
  • VBA之操作工作表

    2020-03-25 22:14:06
    1.选中工作表的三种方式 Sub test() Sheet1.Select Sheets(1).Select Sheets(“1月”).Select End Sub 上面三种都是选中第一个工作表 其中第1个指的是第一个sheet,第2个是索引,可以在括号里改值,第3个工作表名为"1月...
  • VBA代码实例---批量新建工作表模板 ¤升级内容¤ 新建了工作表之后,把新建的工作表,一个工作表新建到工作簿中,并以工作表的名称命名工作簿。 ¤新增知识点¤ 通过剪切的方式,新建工作簿。 ¤代码示例¤ ...
  • 第4行代码即:从第1个工作表开始,一直到第30个分工作表,单元格A2的值从1递增到30. 第5行代码即:从第2个工作表开始,一直到第31个分工作表,K2到K10区域单元格的值从1递增到30. 第6行代码即:从第2个工作表开始,...
  • 大家好,今日继续讲解VBA数据库解决方案,今日的内容是第70讲: 数据查询中,三个工作表联合查询的方法。在各种查询中,内连接,左外连接,右外连接等等,这些方法大家在工作中要多加利用,并且灵活利用,利用多了,...
  • vba 在excle中的应用

    2011-07-03 09:31:01
    vba 禁止用户添加sheet。。。。 禁止 新增工作表
  • vba总结

    2011-04-26 15:11:00
    office2003基本完成了vba工作,设置后自动连接数据库,自动读取,点击保存后自动保存,该新增新增,改修改修改,自动出sheet1Private Sub CommandButton1_Click() GetData End Sub Private Sub ...
  • 上述用绑定热键的操作方法的优点是,对目标excel文件不需要做任何变化或加工,只要有对应月交易流水字段即可(原因是vba代码中没有指定工作表,默认是ActiveSheet,即只要焦点在目标excel文件中即可)。
  • 送货单管理(EXCEL VBA版)

    热门讨论 2009-07-01 22:47:02
    <打印>工作表设置了工作表保护,要修改单元格格式请到工具_保护那里撤消保护. 单据保存:单据填完后,点击下方《保存到单据查询》,单据就会自动保存到《单据查询》表内; 单据查询:打印以后,要翻查以前打印过的...
  • 原创批量图片排序功能,誉为“图片排版大师”,有21种样式可选,能批量将工作表中指定存储格范围的图片快速排序并输出到新表中。原创无穷加密与解密功能,能对选定的存储格或文本内容进行军方级加密保护,使其显示只...
  • 然而,數據庫的管理和操作工作往往脫離不了新增、查詢、修改、刪除等等基本功能,其中利用下拉式選單進行快速查詢更是其中的基本門檻。在Microsoft Access中,建立下拉式選單有兩個方式,一為利用SQL語法查詢既有資...
  • Power Query for Excel

    2020-07-11 15:34:35
    可以将多个工作表汇总为一个,或者多个工作簿汇总为一个,VBA也可以做到 1.多个工作簿汇总 获取数据选取文件夹—选择table数据列,删除其他列—添加自定义列—输入公式—删除原列,展开新列,上载 此方法可以用于多...
  • 工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 ...
  • 实例7:改进版:将查询结果保存在临时对象中,而不再使用工作表单元格作为临时区域 (第3页23楼)(2006年4月19日新增) 实例8:使用 Union 进行多表查询,并对月份表进行汇总 (三楼)(2006年4月13日新增) 实例9...
  • 工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 【查找...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 ...
  • 工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 ...
  • 工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 ...
  • 10 新增工作表函数:数据库函数等27个函数 功能改进列表 ------------ WPS公共 1 改进文档历史列表管理,允许用户同时打开多个历史文档 2 改进了记录文档保存时上一次文档保存路径的操作 WPS文字 1 改进了WPS另存...
  • 1517.3.2 链接Excel工作表 1567.4 使用Microsoft Outlook和Exchange 文件夹 1567.4.1 用Outlook导出和导入Jet 4.0表 1577.4.2 使用Exchange/Outlook向导的链接 1597.5 导入文本文件 1607.5.1 使用导入文本向导 1617....
  • 1517.3.2 链接Excel工作表 1567.4 使用Microsoft Outlook和Exchange 文件夹 1567.4.1 用Outlook导出和导入Jet 4.0表 1577.4.2 使用Exchange/Outlook向导的链接 1597.5 导入文本文件 1607.5.1 使用导入文本向导 1617....
  • 1487.2.5 将字段数据类型转换为Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换为Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换为Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换为Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换为Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....

空空如也

空空如也

1 2 3 4 5
收藏数 84
精华内容 33
关键字:

vba新增工作表