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

黑曜仔8

黑曜仔8

2016-02-19 13:31

下面是个简单易学的合并同一个工作薄中的其余的所有的工作表教程,图老师小编详细图解介绍包你轻松学会,喜欢的朋友赶紧get起来吧!

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

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

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

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

Next j

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

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将其它表的有效数据的单元格的值,赋值到第一工作表的相应单元格内。

展开更多 50%)
分享

猜你喜欢

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

电脑入门
合并同一个工作薄中的其余的所有的工作表

Excel工作薄与工作表的关系

电脑入门
Excel工作薄与工作表的关系

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

如何知道一个工作簿中有多少个工作表?

电脑入门
如何知道一个工作簿中有多少个工作表?

如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题

编程语言 网络编程
如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

同一个帐号不能同时登陆的问题

Web开发
同一个帐号不能同时登陆的问题

Excel 2007中选择一个或多个工作表

电脑入门
Excel 2007中选择一个或多个工作表

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Maxthon Access玩转远程登录

Maxthon Access玩转远程登录

用C#压缩和修复Access数据库

用C#压缩和修复Access数据库
下拉加载更多内容 ↓