精华内容
下载资源
问答
  • Excel多个工作簿合成为一个工作表

    万次阅读 2020-08-21 14:02:20
    Excel多个工作簿合成为一个工作表 目录 前言 第一步:多张工作簿合并成一个“汇总工作簿”,操作如下: 第二步:把多张sheet表合并成一张sheet工作表,操作如下: 总结 前言 工作中,我们会遇到这种情况,...

     

    Excel多个工作簿合成为一个工作表

    目录


    前言

     在工作中,我们会遇到这种情况,收集到各组中工作人员的信息,没人一张表,会产生大量的工作簿,汇总时一张一张复制粘贴费时费力,所以我们需要把多个Excel工作簿的内容汇总到一张Excel工作表中。这样可以方便快捷的进行数据整理。

    针对这种情况,我们一般可以分成两步去操作:

    1、首先,多个工作簿汇合并成一个“汇总工作簿”;形成一个工作簿,多张工作表的形式;

    2、其次,将我们的“汇总工作簿”中的多张sheet表合并成一个工作表。

     

    第一步:多张工作簿合并成一个“汇总工作簿”,操作如下:

    1、新建一个Excel工作簿,用于存放合并后的数据,将其命名为合并后的名字,例如:汇总工作簿;

    2、打开工作簿,在任意一个空白sheet表上右击,选择【查看代码】;

     

     

     

    3、点击【查看代码】,在打开的VBA编辑窗口中粘贴以下代码:

    Sub 工作薄合并()
    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
    X = 1
    While X <= UBound(FileOpen)
    Workbooks.Open Filename:=FileOpen(X)
    Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    X = X + 1
    Wend
    ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
    errhadler:
    MsgBox Err.Description
    End Sub
    

     4、保存并关闭VBA编辑窗口;

    5、在Excel中,找到【宏】,选择【工作簿合并】,点击【执行】;

    6、打开窗口,选择需要合并的工作簿即可(可以单选、可以多选);

     7、等待运行结束,就完成了第一步,工作簿的合并。

    8、打开名为“汇总工作簿”的Excel文件,就可以看到多个其他工作簿以多个sheet表的形式合并到了这一个工作簿中。

    第二步:把多张sheet表合并成一张sheet工作表,操作如下:

    1、在“汇总工作簿”中,新建一个sheet页;

    2、在新建的sheet标签上单击右键,选择【查看代码】;

    3、在打开的VBA编辑窗口中粘贴以下代码:

    Sub 合并当前工作簿下的所有工作表()
    Application.ScreenUpdating = False
    For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
    X = Range("A65536").End(xlUp).Row + 1
    Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
    Next
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
    End Sub
    
    

     4、保存并关闭VBA编辑器;

    5、在Excel中,找到【宏】,选择【合并当前工作簿下的所有工作表】,点击【执行】

    6、等待运行结束,就完成了多张sheet表合并成一张sheet表的工作。

    总结

    合并工作簿的方法有很多,选择合适的即可,此方法分享仅作为本人学习笔记存在, 希望对其他人有所启发,有所帮助。

    展开全文
  • PB9将数据窗口导出到一个EXCEL文件的多个工作表
  • 使用Excel 时,我们经常需要将多个工作表工作簿合并到一个工作表中,这样我们就能快速地对数据进行分析和统计。对于一般用户而言,除了复制每个工作表后再粘贴,没有其他什么方法了。如果只是合并少数几个工作表...

    在使用Excel 时,我们经常需要将多个工作表或工作簿合并到一个工作表中,这样我们就能快速地对数据进行分析和统计。对于一般用户而言,除了复制每个工作表后再粘贴,没有其他什么方法了。如果只是合并少数几个工作表,这个方法很简单;如果要合并大量的工作表,这个方法非常耗时。现在,我们谈谈其他快速合并工作表或工作簿的方法。

     

    下面的VBA 代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里。同时需要注意的是,所有工作表里的数据结构,列标题,以及各列排列的顺序都必须一样。操作如下:

    1. 按住Alt + F11键打开 Microsoft Visual Basic for Applications窗口。

    2. 点击插入 >> 模块,再将下面的代码粘贴到模块窗口里。

    VBA:当前工作簿里各个工作表里的数据合并到一个新工作表里

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub Combine()
      Dim As Integer
      On Error Resume Next
      Sheets(1). Select
      Worksheets.Add
      Sheets(1).Name =  "Combined"
      Sheets(2).Activate
      Range( "A1" ).EntireRow. Select
      Selection.Copy Destination:=Sheets(1).Range( "A1" )
      For J = 2  To Sheets.Count
      Sheets(J).Activate
      Range( "A1" ). Select
      Selection.CurrentRegion. Select
      Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1). Select
      Selection.Copy Destination:=Sheets(1).Range( "A65536" ). End (xlUp)(2)
      Next
      End Sub

    3. 按F5 键运行代码。运行后,当前工作簿里的数据都被并合并到一个名为 Combine的新 工作表中 , 并列在所有工作表前面。

    注意:

    (1) 数据必须从单元格A1开始,否则代码无效。

    (2) 所有的工作表数据必须布局一致。

    (3) 此代码只能合并当前工作簿里的工作表,如果想要合并多个工作簿里的工作表,此代码无效。

    4. 保存文件为xlsm格式以便保存代码

     http://www.extendoffice.com/documents/excel/zh-cn-excel/2800-excel-merge-multiple-worksheets-into-one.html

    转载于:https://www.cnblogs.com/happlyonline/p/5237502.html

    展开全文
  • 使用方法: 1、新建一个工作薄,将其命名为你合并后的名字。 2、打开此工作薄。...3、其下任一个工作表标签上点击右键,选择“查看代码”。 4、打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并()
  • 本篇经验贴子中,我将向大家分享如何利用函数将一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责,具体请参看内容。希望对你有所帮助! 工具/原料 microsoft office excel 2007 ...

    本篇经验贴子中,我将向大家分享如何利用函数将一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责,具体请参看内容。希望对你有所帮助!

    工具/原料

    • microsoft office excel 2007

    方法/步骤

    1. 1

      打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。

      怎么拆分一个Excel工作簿中的多个工作表?
    2. 2

      右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。

      怎么拆分一个Excel工作簿中的多个工作表?
      怎么拆分一个Excel工作簿中的多个工作表?
    3. 3

      点击菜单插入-模块 在弹出的模块对话框中 输入以下代码:


         Private Sub 分拆工作表()
             Dim sht As Worksheet
             Dim MyBook As Workbook
             Set MyBook = ActiveWorkbook
             For Each sht In MyBook.Sheets
                 sht.Copy
                 ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
                 ActiveWorkbook.Close
             Next
             MsgBox "文件已经被分拆完毕!"
         End Sub

      怎么拆分一个Excel工作簿中的多个工作表?
      怎么拆分一个Excel工作簿中的多个工作表?
    4. 4

      单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示

      怎么拆分一个Excel工作簿中的多个工作表?
      怎么拆分一个Excel工作簿中的多个工作表?
    5. 5

      返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!不信 可以对照查看图中的修改日期 

      怎么拆分一个Excel工作簿中的多个工作表?
    展开全文
  • 可以说,一个Excel表就是一个Excel工作簿,而一个工作簿中可以包含多个工作表(即sheet1, sheet2,等) 合并步骤: 1. 将需要合并的工作簿全部放在同一个文件夹下面; 2. 新建一个工作簿,如merge,其他工作簿将被...

    问题1:大量?Excel工作簿?工作表?

    可以说,一个Excel表就是一个Excel工作簿,而一个工作簿中可以包含多个工作表(即sheet1, sheet2,等)

    合并步骤:

    1. 将需要合并的工作簿全部放在同一个文件夹下面;

    2. 新建一个工作簿,如merge,其他工作簿将被合并到这个工作簿中。

    3. 开打merge, 点击开发工具 >> Visual Basic >> 插入 >> 模块,将下面的代码输入模块窗口中
    4. 点击运行!!

    Sub GetSheets()
     Path = "C:\Users\Lenovo\Desktop\tt\"   
     Filename = Dir(Path & "test*.xls") 
     Do While Filename <> ""
     Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
     Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
     Loop
     End Sub
    
    1. 提示:
    2. 在上面的代码里,你可以将目录路径更换成你自己使用的路径,tt是文件夹,后面加 ’ \ ’ 。
      Path = C:\Users\Lenovo\Desktop\tt\
      以通配符替换到需要合并的文件的文件名;
      Filename = Dir(Path & “test*.xls”)
    3. 然后点击 运行 按钮运行代码,工作簿里的全部工作表(包括空白工作表)都将被合并到主工作簿里。
    4. 注意:
      这个VBA 代码能将整个工作簿合并到主工作簿中,但是不能 针对指定的工作表进行合并。
      VBA的模块对话框
      文件夹及位置

    问题2:少量合并的方法

    1. 将需要合并的工作簿全部打开,否则下一步是检测不到的。
    2. 选择其中一个工作簿,在左下角的sheet中点击 右键 >> 移动和复制 >> 选择目标工作簿即可
    在这里插入图片描述

    问题3:将一个工作簿中的多个工作表sheet合并到一个里面

    1. 在当前工作簿中新添加一个sheet。
    2. 点击 开发工具 >> Visual Basic >> 插入 >> 模块,将下面的代码输入模块窗口中

    Sub 合并当前工作簿下的所有工作表()
    Application.ScreenUpdating = False
    For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
    X = Range("A65536").End(xlUp).Row + 1
    Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
    Next
    Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
    End Sub
    
    
    展开全文
  • 我有一个excel文件,该excel文件有多个工作表(sheet),因为Linux上使用openoffice转换 失败,所以本地增加一个功能,就是本地通过excel软件打开,再另存为html格式, 最后会生成一个html文件和一个files文件夹...
  • 使用情景:如题,将一个包含多工作表工作簿拆分为单工作表工作簿文件 原始文件描述:【旺旺大礼包.xlsx】中有三个工作表,分别是旺仔牛奶、旺旺仙贝、旺旺小小酥 操作流程: 打开旺旺大礼包.xlsx——菜单栏...
  • 3、其下任一个工作表标签上点击右键,选择“查看代码”。 4、打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = ...
  • SQL Developer显示多个工作表

    千次阅读 2015-06-25 09:19:09
    Oracle SQL Developer默认只能显示一个查询结果,不方便多个表查看。 工具-->首选项-->数据库-->工作表,勾选“新选项卡中显示查询结果”。 设置后,
  • 有时候需要个工作簿中建立多个工作表,并且需要自定义工作表的名称,手动的一个个双击表名去修改非常麻烦,特别是这次我需要建立一百多个表的时候。。。。 方法一:使用数据透视表功能 方法二 使用VB写模块...
  • 一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。 二、进入VBE编辑页面 三、插入一个新的模块。 四、模块1窗口粘入如下代码 ,并保存 五、通过【开发者工具】...
  • 一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果 打开需要拆分的excel,任意工作表右击,点击“查看代码” 打开的窗口中输入如下代码: Private Sub 分拆工作表() Dim sht ...
  • 前言step 1 进入excel vba编程界面step 2 粘贴代码step 3 运行代码step 4 删除宏代码 前言 这两天接触到excel比较,才发现...如果我们要把这个表按照班级拆分为三个表,可能一般我们都是通过筛选后复制粘贴。但这...
  • 当前版本是Office2016)文件都会出现两个窗口,一个是空白的sheet1,,另一个是自己的文档,让小编是很烦,因为每次打开一个文件就相当于打开两个,还会让Excel打开速度变慢,网上找了很解决办法,卸载重装过.....
  • excel 2007显示开发工具的方法: excel 2007 和2003区别很大,很设置的地方经常找不到。比如excel的开发工具,2007里就缺省是没有显示... 个人宏工作簿,是为宏而设计的种特殊的具有自动隐藏特性的工作簿。第
  • 下面的函数f_excel_hb,可以实现“将工作簿filename_s中的工作表sheetname_s以新的工作表名称sheetname_t,复制到工作簿filename_t的最后” public function boolean f_excel_hb (string filename_s, string ...
  • Sub 合并工作表() For i = 2 To Sheets.Count Sheets(i).UsedRange.Copy Destination:=Sheets(“汇总”).Range(“A” & Sheets(“汇总”).UsedRange.Rows.Count + 1) Next End Sub ALT+F11,打开代码窗口.粘贴...
  • 因为2007以上版本,打开多个Excel文件时,默认不是单独窗口显示多个Excel窗口无法独立拖拽。虽然两张之间可以使用“Alt+Tab”键来频繁切换,但是有时候,会需要两个独立Excel文件窗口显示,来做数据对比。一键...
  • 1.打开视图—>代码窗口—>粘贴代码 2.运行代码 Private Sub chafenbiao() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets ...
  • 表格拆分的两种方式 拆分成多个excel工作表多个excel文件 拆分Excel,可以分为3种层次:拆分excel单元格;拆分成多个excel工作表;拆分成多个excel文件 其中,第1种拆分是无法完成的,因为单元格是excel中的最小...
  • 多个Excel合并成一个Excel

    万次阅读 多人点赞 2019-06-30 17:38:04
    问题描述: 往往进行数据统计分析前,会遇到数据分不同的表里的情况,这时候就需要将多个表的数据先放到一个表的数据里面,然后再进行分析。比如班级需要汇总每个人的信息,几十人每个人都发了个人的信息...
  • 1 select方法 1.1Range.Select 方法 (选择对象。) 应用于Shape 和 ShapeRange对象的 Select方法。 选定指定的对象。 ... expression.Select(Replace),... 表达式 一个代表 Range 对象的变量。 Replace V...
  • excel 2010成功安装使用。原CSDN下载的同类软件提示有毒,并安装不成功。这测试正常。
  • Visio如何合并多张工作表(将多个文件合并成一个文件)今天有个盆友问了我这样一个问题:手上有3张Visio文件,分别是3张流程图。他想将3个文件做成像excel表那样,有工作表1,工作表2,工作表3的样式。图片效果如下...
  • 最近需要项目中增加一个发系统消息的功能,于是后台新建了一张,jc_sysmsg,中有一个字段,用于存放消息信息,msg varchar(4000)。问题随之而来,数据窗口中选择此字段后,显示为MSG CHAR(255),...
  • EXCEL 2010如何分屏/多窗口显示多文件

    万次阅读 2018-09-21 10:43:07
    工作或学习中同时处理多个EXCEL表格,常在窗口间切换? 总是找不到2010版 EXCEL的解决办法? 那么看向这里,教你最简单的分屏方法! 方法/步骤 1你打开了2个表格,需同时处理,如下图: 2【菜单】——【视图】...
  • 效果图 实现方法 准备好多个excel或者word文档,例如1) 公司人员信息汇总.xlsx 2)考勤记录.xlsx 3)身份证信息提取文档.xlsx 打开其中一个文档 ...excel多个窗口独立显示的方法 Excel2010的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 233,106
精华内容 93,242
关键字:

多个工作簿在一个窗口显示