VBA将工作簿中的所有工作表的内容输出到一个工作表中

主体是对该工作簿中所有的工作表进行遍历，然后将内容依次输出到一个工作表中。
下面看代码：

Rem 将多个工作表中的内容汇总到一个工作表中
Sub collect()Rem 定义要循环的工作表和拿来去循环的工作表对象变量Dim ws As WorksheetDim thissheet As WorksheetRem 设置要去循环的工作表对象变量Set thissheet = ThisWorkbook.Sheets("汇总")Rem 进行循环For Each ws In ThisWorkbook.SheetsRem 如果不是用来存放的工作表就将内容放入If ws.Name <> thissheet.Name ThenRem 将工作表表名放入thissheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = ws.NameRem 将工作表中的内容放入ws.UsedRange.Copy thissheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)End IfNext ws
End Sub

效果图：
sheet1的内容：

另一个工作表中的内容：

汇总后的内容：

语法内容：
定义变量：
定义变量用dim，对象是工作表用worksheet，给对象赋值用set

选工作表，工作簿：
thisworkbook是当前的工作簿，如果要选这个工作簿里的哪个工作表用
thisworkbook.sheets(“…”)的写法，如果要选当前工作表直接写activesheet

copy：
使用.copy复制选中的区域，后面跟要粘贴过去的地方

单元格的所在行列：
显示某个单元格的行用工作表名.cells(第几行，第几列).row 或工作表名.range(“哪个单元格”).row
显示某个单元格的列用工作表名.cells(第几行，第几列).column
或工作表名.range(“哪个单元格”).column
rows.count是工作表中一共有多少行，可不加父对象单独使用
某单元格.end(xlup) 是从某单元格向上数，到第一个有内容的单元格那里
某单元格.offset(x,y) 是从某单元格偏移x列和y行到另一个单元格

VBA将工作簿中的所有工作表的内容输出到一个工作表中相关推荐

python现有两个磁盘文件a和b_有两个磁盘文件A和B,各存放一行字母,要求把这两个文件中的信息合并(按字母顺序排列), 输出到一个新文件C中Python实例...
有两个磁盘文件A和B,各存放一行字母,要求把这两个文件中的信息合并(按字母顺序排列), 输出到一个新文件C中Python实例题目:有两个磁盘文件A和B,各存放一行字母,要求把这两个文件中的信息合并( ...
将类的定义放在头文件中，把成员函数的实现代码放在一个cpp文件中
将类的定义放在头文件中,把成员函数的实现代码放在一个cpp文件中写这种.h和.cpp文件分开的大程序,虽然对很多人来说很简单,对自己来说算是第一次吧,好好学C++,加油~ 题目:定义Point类,由 ...
EXCEL中将多个单元格内容合并到一个单元格中的方法（转帖+亲自实践）
原帖位置:EXCEL中将多个单元格内容合并到一个单元格中的方法 http://t.excelhome.net/thread-3875-1-1.html 说明:这个技巧主要用到以下2个功能 1.Offi ...
多个excel工作簿合并_「Excel技巧」批量将多个工作簿的工作表合并到一个工作簿中...
多个工作簿里的表格合并到一个工作簿中,在日常工作中应该经常碰到吧. 怎么合并会比较快又省事? 当然,肯定不是复制粘贴,要合并的工作簿多的情况下,这种方式很耗力气. 不妨,试试用VBA代码法. 今天来讲 ...
Python+Excel系列：案例三：批量重命名一个工作薄中的所有工作表、批量重命名一个工作簿中的部分工作表
文章目录批量重命名一个工作薄中的所有工作表批量重命名一个工作簿中的部分工作表批量重命名一个工作薄中的所有工作表例:把table文件夹下一个工作簿中所有工作表名中的"销售"二 ...
VBA代码实例---多个工作表内容合并到一个工作表中
这是一个常用而且经典的例子:根据内容,把N个工作表中的内容,合并到一个工作表中: ¤主要知识点¤ 1.工作表选取和内容的复制: 2.IF分支语句和For循环语句的使用: ¤工作表样式¤ ¤代码实例¤ ...
用VBA宏从一个工作薄复制内容到另一个工作薄
我们项目管理有两个工作薄,一个里面有多个表,每天建一个,记录当天项目,另一个工作薄,有多个表,其中一个是所有项目汇总. 以前都是第一个工作薄一个表做完,再复制粘贴到第二个工作薄的汇总表中. 写了个VB ...
html 表单内容怎么获取不到,jquery中formdate一直获取不到对象中的[0]的值包括本身也是一个空的数据怎么办？...
jquery中formdate一直获取不到对象中的[0]的值包括本身也是一个空的数据怎么办? 再做一个前台的ajax方法查网上用formdate方法上传.可是进了接口之后一直在控制台获取不到for ...
python创建多个文件夹合并_在python中如何将多个文件夹合并到一个文件夹中？
我需要将多个文件夹合并到一个文件夹中,并考虑到它们基于时间的顺序,为此我尝试了:import os import shutil DestFolder = 'C:\\Users\\user\\Folde ...

VBA将工作簿中的所有工作表的内容输出到一个工作表中

VBA将工作簿中的所有工作表的内容输出到一个工作表中相关推荐

最新文章

热门文章