如何用VBA将一个工作簿里多张表的名字与人数汇总在一张表里

最新推荐文章于 2024-05-19 00:48:26 发布
最新推荐文章于 2024-05-19 00:48:26 发布
阅读量1.8k 收藏 3
点赞数
分类专栏： VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_42412150/article/details/80616851
版权

Sub text1()

Worksheet.Add.Name="汇总"

For Each Sheet In Worksheets

k = k + 1

x = y.usedRange.Rows.Count

sheets("汇总").Cells(k, 1) = Sheet.Name

sheets("汇总").Cells(k, 2) =x

Next

End Sub
冯修聿
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用VBA汇总工作表
God_68的博客
05-03 2970
目的：将一张工作薄中的多张工作表中的数据记录汇总到一张表中，并统计数据记录条数 如下图所示，将下图中4张工作表中的数据汇总到“汇总表”中 代码实现： （1）该代码是微调宏录制的代码 Sub 核酸汇总() ' ' 核算汇总 宏 ' Sheets("1班").Select ActiveWindow.SmallScroll Down:=-9 Range("A3:D15").Select Selection.Copy Sheets("汇总").Selec.
Excel 2010 VBA 入门 084 数据处理之按多列汇总数据
复行数十步
05-04 705
目录 示例 代码 示例 如图所示，该表为某公司的销售数据。如何使用VBA按月份及商品名称汇总其对应商品的销售数量和收入合计？ 日期 商品代码 商品名 数量 收入 2011/5/30 01.0014 ASCERT -800 -369231 2011/5/31 01.0014 ASCERT -200 -92307.7 2011/8/17 01.0032 ASWDVBN 0.05 42...
vba汇总多个工作簿到一个工作表
08-17
可以通过该工作簿的代码修改成自己想要的工作簿,方便以后每次汇总多个工作簿
5、提取多工作簿指定工作表（名字查找），输出一张表
最新发布
weixin_73737526的博客
05-19 500
合并文件夹内存在多工作簿文件，每个工作簿中存在多个sheet表。现在要汇总指定sheet表，最后输出在一张sheet表上。
VBA本菜单下EXCEL汇总在一张sheet里
Dayin_mao
01-24 588
VBA 路径下EXCEL合并”’ VBASub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWor
EXCEL VBA 数据表统计工作簿数量、名称
AZWSXQD的博客
08-21 2815
统计excel数据表数量 Sub sheetcount() Dim num As Integer num = ThisWorkbook.Sheets.Count MsgBox "工作表数量" & num End Sub 统计excel数据表数量并将数据表名目放在当前代码所在的表单中 Sub a() For Each sh In Sheets k = k + 1 Cells(k, 1...
VBA怎样统计同一类型的数据的总和
weixin_33774615的博客
01-23 816
今天是2014-11-01 是周末，忙了一周了，最终能够闲下来了。想起近期工作用到的VBA的一个场景，结合VBA的数组，所以就想试试看。结果还好。出来了。这年头，又玩起了VB了，经过多时才接受了VB的种语法风格，闲话不说，进入正题 比方如上的数据。我如今想统计出qqq所的总和是多少？ ee的总和是多少等等，现数据量小。能够考虑手动统计，那假设是上千条或上万条数据该怎么办呢。答案肯...
VBA简单的sheets统计汇总代码，面向对象
04-29
VBA简单的sheets统计汇总代码，面向对象,统计每个表格并汇总到一个总表内
VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿一工作表
海豚
02-10 1万+
学习日志 批量合并excel工作簿中同名工作表，适用条件： 1、所有要汇总的工作簿在同一个文件夹中，这里以后缀为.xlsx为例； 2、需要合并的工作表名称相同（如： “sheet1”）,且数据字段一样（如：A列表示序号，B列表示姓名，C列表示月工资等）； 3、需要合并的数据所在区域起始行列一致（如：有相同的表头） ALL IN ONE Option Explicit Sub allinone() ...
VBA 如何多条件查询汇总
Raqsoft
06-21 4176
如何根据医院名称、报表时间和报表类别查询，按定点医院名称、分类进行分组，计算各项费用之和。相关的数据与统计表如下： 表数据：希望点击 "查询" 按钮后就能自动计算，将相应的数据按上面形式填充到 A4:L18 之间的表格。可以使用集算器, 按所给条件查询汇总后再被 VBA 调用。 集算器安装包可去润乾网站下载职场版，运行时需要一个授权，免费版本就够用。我们将上述事例实现步骤： 1． 在集算器新建脚本，命名为 hospital.dfx，设置脚本参数： 设置参数分别是 Excel 文件名，医院名称、报表日期、报表
Excel：Day04-VBA操作工作簿-For Each循环
pantingd的博客
06-18 2509
主要内容： Workbooks工作簿对象 For Each 循环 第一块内容：For Each循环 Sub test1() Dim ge As Range'把变量ge定义为Range（rng）类型，单元格变量/区域变量 For Each ge In Range("A1:A10")'在单元格区域A1：A10范围内，循环查找单元格 ge = 1 Next End Sub '输出的结果为在单元格A1：A10中都填上了1 Sub sc() Dim biao As Worksheet Application.
VBA宏汇总同文件夹下多工作簿数据
12-04
自己学习VBA编程时，利用excel内VBA宏编写的简单命令，涉及一些基础的操作，亲测可用，初学者可以借鉴，也能利用其解决一些简单的办公问题。
使用vba操作工作表，实现报表汇总
qq_42539251的博客
07-07 3312
表有哪些方法和属性？ 方法也可以理解为动作，表的方法有select，add, delete, copy，表的属性有count,name 假设工作簿中按顺序新建3张表叫1月和2月和3 月。如何切换到第2张表？ Sheet2.select //sheet2是表的默认名称。重命名只是给sheet2起一个别名 Sheets(2).select //sheets(2)指工作簿的第2张表 Sheets(“2月”).Select // Sheets(“2月”)指重命名为2月的表 如何知道工作簿中有多少张表？
VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表
weixin_45355881的博客
04-20 3776
VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表
遍历工作表六种方法
热门推荐
xuming1209的专栏
01-03 1万+
1.Sub 遍历工作表() For Each sh In Worksheets    '数组     sh.Select     Call 设置A1格式 Next End Sub -------------------------------------- 2.Sub 遍历工作表() For Each sh In Worksheets    '数组     if sh.name
vba 跳到下一个循环_遍历工作薄和工作表(For Each循环的利用)
weixin_39779537的博客
12-14 2925
今日的内容是“VBA之EXCEL应用”的第三章“工作簿(Workbook)和工作表(Worksheet)对象(Object)”中第三节“遍历工作薄和工作表(For Each循环的利用)”。“VBA之EXCEL应用”这套教程从简单的录制宏的讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需...
多个sheet合并成一个表_工作小记——将多个sheet表合并到一张里
weixin_39725118的博客
12-14 1万+
今天拿到 一些表格，每张表里含有多张sheet，但格式都是一样的，需要将每张sheet汇总起来放到一张表里，这里将方法说一下，也方便自己以后再用。新建一个总表，准备开始汇总。按下Alt+F11，打开VBA，左键双击左边的的名为”总表“的工作表，确保后续的代码是复制到这个工作表中。选中总表双击在右边的空白区域，输入下面的代码：Sub main()For Each sh In SheetsIf sh....
Python3 openpyxl库
咖啡花园
09-16 2671
Python3 openpyxl库 用于读取和写入 Excel 2010 xlsx/xlsm/xltx/xltm 文件。通过 pip install openpyxl 命令下载 openpyxl 库。 演示代码 通过下面的演示代码，可以快速创建一个名为 sample.xlsx 的表格文件： from openpyxl import Workbook import datetime wb = Workbook() # 获取活动工作表 ws = wb.active # 数据可以直接分配到单元格 ws['A1'
多个工作簿里面的多个工作表有合并单元格无法通过VBA合并到1张表上
06-10
要合并多个工作簿里面的多个工作表的合并单元格，可以使用VBA编写一个宏，具体步骤如下： 1. 打开一个新的工作簿，命名为“合并表格”。 2. 在“合并表格”工作簿中选中第一个工作表，复制并粘贴到“合并表格”...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值