在Excel中，可以使用宏自动提取数据。以下是一种方法：
1. 打开Excel，按下Alt+F11键，打开VBA编辑器。
2. 在VBA编辑器中，选择插入菜单中的模块，创建一个新的模块。
3. 在新模块中，输入以下代码：
```vba
Sub ExtractData()
'定义变量
Dim SourceSheet As Worksheet
Dim TargetSheet As Worksheet
Dim LastRow As Long
'设置工作表
Set SourceSheet = ThisWorkbook.Worksheets("Sheet1") '源数据所在的工作表
Set TargetSheet = ThisWorkbook.Worksheets("Sheet2") '目标工作表
'找到源数据的最后一行
LastRow = SourceSheet.Cells(SourceSheet.Rows.Count, "A").End(xlUp).Row
'将源数据复制到目标工作表中
SourceSheet.Range("A1:B" & LastRow).Copy Destination:=TargetSheet.Cells(1, 1)
End Sub
```
这段代码将从名为"Sheet1"的工作表中提取数据，并将结果复制到名为"Sheet2"的工作表中。您可以根据需要修改这些名称。
4. 按下F5键或点击运行按钮，运行该宏。
5. 等待一段时间，直到宏完成运行。当宏完成后，您将看到提取的数据已经复制到目标工作表中。
注意：在使用宏之前，请确保启用了宏功能。可以在Excel选项中启用宏，或者在VBA编辑器中设置启用宏的选项。
