有时工作的需要 , 我们要归并统计多个工作表的数据 , 那 么怎么从多个工作表的固定位置取数据呢?今天小编和大师分享一下 。
文章插图
需要这些哦
excel2003
提取固定单位格数据1案例环境申明:如下图把一班、二班和三班固定A2:A3以及B2:B3数据提取到归并表那边
文章插图
2第二步 , 点击东西——宏——Visual Basic 编纂器——点击插入——模块 , 在模块那边输入如下代码:
Sub 固定提取()
Application.ScreenUpdating = False
Dim x
For x = 1 To Sheets.Count
With Sheets("归并表")
If Sheets(x).Name <> "归并表" Then Sheets(x).Range("A2:b2", "a3:b3").Copy .Range("a" & .[a65536].(xlUp).Row + 1) ' Range("A2:b2", "a3:b3")是固定单位格区域 。
With
Next x
Sub
然后运行代码就可以了 。
文章插图
提取固定列不要题目1案例申明:如下图 , 一班、二班、三班学生的姓名和语文成就都固定在A列和B列 , 可以提取三个表的数据到归并表那边 , 但不要题目 。
文章插图
2接着打开Visua Basic编纂器(按ALT+F11)——然后插入模块——在模块那边输入如下代码:
Sub 固定列提取()
Application.ScreenUpdating = False
Dim x
For x = 1 To Sheets.Count
With Sheets("归并表")
If Sheets(x).Name <> "归并表" Then Sheets(x).Range("A2:b" & Sheets(x).[a65536].(xlUp).Row).Copy .Range("a" & .[a65536].(xlUp).Row + 1) ' Range("A2:b" & Sheets(x).[a65536].(xlUp).Row)是固定列区域 。
With
Next x
Sub
文章插图
设置号令按钮1为了便利运行代码 , 要设置号令按钮 。 点击视图——东西栏——控件东西箱——选择号令按钮 , 并画一个按钮在某个位置 。
文章插图
2右击号令按钮——属性——在Caption属性那边输入:固定提取(就是给号令按钮重定名)
文章插图
3【如何从多个工作表的固定位置取数呢】同样右击号令按钮——查看代码——在代码编纂页面那边输入:固定提取(就是方才成立模块时编写代码的名称) , 如许此后点击该号令按钮就可以运行了 。
文章插图
推荐阅读
- WPS文字在插入图片时如何保持表格不变形
- UG中如何让模型动起来
- Apple Watch如何自定义消息、邮件、日历
- iphone如何设置和取消黑名单
- 小天才手表app如何修改密码
- 两台笔记本电脑之间如何互传文件
- 如何增强孩子安全意识 如何帮孩子树立安全意识
- vegas如何将多个素材一起变速
- AE精通教程:3D效果多个灯光
- vegas中做好工程文件如何在前方插入片头