如何从多个工作表的固定位置取数呢
有时工作的需要，我们要归并统计多个工作表的数据，那 么怎么从多个工作表的固定位置取数据呢？今天小编和大师分享一下。
东西/原料
- 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].End(xlUp).Row + 1) ' Range("A2:b2", "a3:b3")是固心猿意马单位格区域。
End With
Next x
End 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].End(xlUp).Row).Copy .Range("a" & .[a65536].End(xlUp).Row + 1) ' Range("A2:b" & Sheets(x).[a65536].End(xlUp).Row)是固心猿意马列区域。
End With
Next x
End Sub
设置号令按钮
- 1
为了便利运行代码，要设置号令按钮。点击视图——东西栏——控件东西箱——选择号令按钮，并画一个按钮在某个位置。
- 2
右击号令按钮——属性——在Caption属性那边输入：固心猿意马提取（就是给号令按钮重定名）
- 3
同样右击号令按钮——查看代码——在代码编纂页面那边输入：固心猿意马提取（就是方才成立模块时编写代码的名称），如许此后点击该号令按钮就可以运行了。
注重事项
- 但愿能帮忙到你
- 发表于 2019-01-11 00:00
- 阅读 ( 887 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章