ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1069|回复: 3

将多工作表中的数据汇总到“汇总表”

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-5-7 09:56 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
image.png
image.png
我的目的是将除汇总表外的子表数据汇总到“汇总表”,在汇总时不汇总标题行。如果多列可以自行修改代码即可。
汇总代码:
Sub Hebgzb()
     '把各班成绩表中的记录合并到"成绩表"工作表中
     Dim sht As Worksheet
     Set sht = Worksheets("汇总表") '将"汇总表"工作表赋值给sht对象,在VBA中,给对象赋值,前面必须加Set关键字
     sht.Rows("2:" & sht.Rows.Count).Clear '删除(Clear)汇总表中的原有记录\\sht.rows.count表示sht工作表总共有多少行;
                                           '在VBA中,Rows表示工作表或某个区域中所有行组成的集合。Rows("2:3")表示选中工作表的第2行到第3行。
     Dim wt As Worksheet, xrow As Integer, rng As Range
     For Each wt In Worksheets  '循环处理工作簿中的每张工作表\\wt代表工作表集合中的一个工作表,随着循环变换。
         If wt.Name <> "汇总表" Then
             Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0) '表示sht工作表中数据A列下面的第一个空单元格。
                                                                    'Range("A1048576")表示工作表最下面一个单元格。
                                                                    'Range对象的End属性返回包含指定单元格的区域最尾端的单元格,
                                                                    '返回结果等同于在单元格中按【End+方向键】(上、下、左、右方向键)组合键得到的单元格。
                                                                    'Offset(1, 0)表示单元格下面一个单元格。
             xrow = wt.Range("A1").CurrentRegion.Rows.Count - 1 '表示A1单元格所在当前区域的行数减1?(CurrentRegion表示当前对象所属区域)
             wt.Range("B2").Resize(xrow, 4).Copy rng  '表示将子表中的数据复制到汇总表的空白区域。(Resize(行,列)表示调整指定区域大小)
                                                    'Range对象的Resize属性将指定的单元格区域有目的地扩大或缩小,得到一个新的单元格区域。
                                                    'Range("B2").Resize(5,4).Select表示将B2单元格扩展为一个5行4列的单元格区域。
         End If
     Next
End Sub

TA的精华主题

TA的得分主题

发表于 2020-6-6 11:43 | 显示全部楼层
点击“合并工作表”按钮后,跳出:运行时错误1004, 方法‘Range‘作用于对象’_worksheet'进失败。
Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0)。
我是office2003,A1048576改了A65536后就行了,有什么代码能破除版本不同带来的问题吗?

TA的精华主题

TA的得分主题

发表于 2020-6-11 09:16 | 显示全部楼层
不具备通用性,Range("A1").CurrentRegion这一句,当1:2行均为空白时,无法取得正常范围

TA的精华主题

TA的得分主题

发表于 2020-6-11 09:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
uniquevip 发表于 2020-6-6 11:43
点击“合并工作表”按钮后,跳出:运行时错误1004, 方法‘Range‘作用于对象’_worksheet'进失败。
Set r ...
  1. If Right(ThisWorkbook.Name, 4) = ".xls" Then
  2.         maxrng = "A65536"
  3. Else
  4.         maxrng = "A1048576"
  5. End If
  6. Set Rng = sht.Range(maxrng).End(xlUp).Offset(1, 0)
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 22:32 , Processed in 0.028564 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表