订阅如何从多个工作表的固定位置取数呢
来源：网络收集 点击： 时间：2024-09-29案例情况说明：如下图把一班、二班和三班固定A2:A3以及B2:B3数据提取到合并表那里
2/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 ..End(xlUp).Row + 1) Range(A2:b2, a3:b3)是固定单元格区域。
End With
Next x
End Sub
然后运行代码就可以了。
提取固定列不要标题1/2案例说明：如下图，一班、二班、三班学生的姓名和语文成绩都固定在A列和B列，可以提取三个表的数据到合并表那里，但不要标题。
2/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)..End(xlUp).Row).Copy .Range(a ..End(xlUp).Row + 1) Range(A2:b Sheets(x)..End(xlUp).Row)是固定列区域。
End With
Next x
End Sub
设置命令按钮1/3为了方便运行代码，要设置命令按钮。点击视图——工具栏——控件工具箱——选择命令按钮，并画一个按钮在某个位置。
2/3右击命令按钮——属性——在Caption属性那里输入：固定提取（就是给命令按钮重命名）
3/3同样右击命令按钮——查看代码——在代码编辑页面那里输入：固定提取（就是刚刚建立模块时编写代码的名称），这样今后点击该命令按钮就可以运行了。
注意事项希望能帮助到你
学习多个工作表固定位置取数EXCEL版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1218534.html
