如何从多个工作表的固定位置取数呢

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、同样右击命令按钮——查看代码——在代码编辑页面那里输入：固定提取（就是刚刚建立模块时编写代码的名称），这样今后点击该命令按钮就可以运行了。