合并同一个工作薄中的其余的所有的工作表

以下代码的功能是,合并同一个工作薄中的其余的所有的工作表,将其余的表的数据,全部追加到第一个工作表后面,形成完整的唯一的一个表数据。

代码如下,稍后会附上代码说明:

Dim MyCount As Integer

k = Worksheets(1).UsedRange.Rows.Count + 1

For MyTable = 2 To Worksheets.Count

For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count

For j = 1 To Worksheets(MyTable).UsedRange.Columns.Count

Worksheets(1).Cells(k, j).Value = Worksheets(MyTable).Cells(i, j).Value

Next j

k = k + 1

Next i

Next MyTable

注意哦,如上的代码,仅把其它表的第五行的数据至最后一行的数据阵加到第一表的后面,第一行到第四行是标题,不进行追加。For i = 5代表的是从第五行开始阵加。

代码解释

k = Worksheets(1).UsedRange.Rows.Count + 1获取第一个工作表的最后一行的行号后加1

For MyTable = 2 To Worksheets.Count从第二个工作表开始循环至最后一个工作表,目的就是通过循环追加其它表到第一表嘛

For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count每个工作表,仅从第五行至有效数据最后一行,追加到表一。

For j = 1 To Worksheets(MyTable).UsedRange.Columns.Count从每个工作表的第一列到有效列数据的最大列号做循环。

Worksheets(1).Cells(k, j).Value = Worksheets(MyTable).Cells(i, j).Value将其它表的有效数据的单元格的值,赋值到第一工作表的相应单元格内。

(0)

相关推荐

  • 在excel工作薄中如何打开多个excel工作薄

    一、将工作簿保存为工作区 要通过工作区打开工作簿,首先需要将要一次性打开的工作簿保存为工作区(.xlw)类型,其具体操作如下: 步骤01、打开需要保存为工作区类型的所有工作簿,并关闭不需要保存为工作区 ...

  • 怎么在excel工作薄中建立工作表

    大家都知道新建excel工作薄时,默认的都是3个工作表,但有时往往就3个工作表根本不够用,那怎么在excel工作薄中建立更多的工作表呢,下面就有小编来为大家讲解一下 操作方法 01 找到excel表打 ...

  • Excel中一个工作薄如何移动复制到另一个工作薄

    如表1,2.表1工作薄里有A,B,C三个工作表,表2为新建的工作薄,无任何数据,想把表1c工作表复制到表2中,该如何做呢? 操作方法 01 同时打开两个工作表(1,2),打开到工作薄1,c工作表中. ...

  • Excel工作薄中多余的空白工作表怎么一键删除?

    今天要和大家分享的是:Excel如何一键删除空白的工作表? 1.首先打开数据表格,看到sheet1有数据内容,sheet2和3位空白表格,如下图所示: 2.找到方方格子插件,如下图所示: 3.单击批量 ...

  • 无法在未启用宏的工作薄中保存以下功能

    使用宏或者VBA,在保存时候出现以下对话框内容: 如果出现这个对话框,需要将文件另存为启用宏的模式,如果这样子还不能保存,需要将信任中心中的宏设置启用所有的宏,并且要在个人信息选项中勾选保存时从文件中 ...

  • excel2003两个工作薄如何合并?多个工作薄合并

    工作薄太多时,我们可以把一些相关的工作薄合并在一起.今天,小编分享有关合并工作薄的小,希望可以帮到一些朋友.操作版本为2003版本. 操作方法 01 以下图中的两个工作薄为例演示操作方法. 02 两个 ...

  • excel中使用vba退出工作薄时自动保存文件

    小编致力于为大家奉献最有效的,让大家能够解决掉问题,但是大家也都知道,每个人遇到的情况都是不一样的,大家在看小编的同时,除了跟随操作,也需要自己的思考,举一反三的解决问题,这样才会变得更加有内涵,成为 ...

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

    小编之前分享过如何合并多个工作表,这倒好,现在再来介绍一下如何拆分同一个工作薄中的多个工作表. 操作方法 01 如下图所示,工作薄中有四个工作表. 02 在工作表处,右击鼠标,点击"查看代码 ...

  • Excel工作薄与工作表的关系

    刚学习Excel的网友,面对书籍上所讲的工作薄、工作表,难于理解这些概念! 下面,本文就给您详细介绍,Excel中的工作薄和工作表是啥关系,如何来理解工作薄与工作表的概念。 一、工作薄 首先我们看下图 ...