在VBA中提取数据可以通过以下步骤实现：
打开VBA编辑器
使用快捷键 `Alt + F11` 打开VBA编辑器。
插入新模块
在VBA编辑器的左侧“工程”窗口中，右键单击你的工作簿名称，选择“插入” -> “模块”。
编写VBA代码
声明必要的变量，如工作表对象、数据范围、目标行计数器等。
设置源工作表和目标工作表。
获取源数据表的最后一行行号。
遍历数据区域，检查每一行是否满足提取条件（如金额大于1000、地区是“北京”等）。
将符合条件的行提取到新工作表中。
```vba
Sub 提取姓名工号()
Dim wsSource As Worksheet ' 数据源工作表
Dim wsTarget As Worksheet ' 提取结果存放的工作表
Dim lastRow As Long ' 数据最后一行行号
Dim i As Long ' 循环变量
' 获取数据最后一行行号
lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
' 设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsTarget = ThisWorkbook.Sheets("Sheet2")
' 清空结果表的已有数据
wsTarget.Cells.Clear
' 循环遍历每一行数据
For i = 2 To lastRow
' 将姓名和工号写入新的工作表
wsTarget.Cells(i - 1, 1).Value = wsSource.Cells(i, 1).Value ' 姓名
wsTarget.Cells(i - 1, 2).Value = wsSource.Cells(i, 3).Value ' 工号
Next i
End Sub
```
如果你需要提取特定条件的数据，比如金额大于1000的数据，可以使用以下代码：
```vba
Sub 提取符合条件的数据()
Dim wsSource As Worksheet ' 数据源工作表
Dim wsTarget As Worksheet ' 提取结果存放的工作表
Dim lastRow As Long ' 数据最后一行行号
Dim i As Long ' 循环变量
Dim searchValue As Variant ' 搜索值
' 获取数据最后一行行号
lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
' 设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsTarget = ThisWorkbook.Sheets("Sheet2")
' 清空结果表的已有数据
wsTarget.Cells.Clear
' 获取要搜索的值
searchValue = InputBox("请输入要查找的数值:")
' 循环遍历每一行数据
For i = 1 To lastRow
If Sheets("Sheet1").Cells(i, 1).Value > searchValue Then
' 将符合条件的行提取到新工作表
Sheets("Sheet2").Range("A" & i).Value = Sheets("Sheet1").Cells(i, 1).Value
Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Cells(i, 2).Value
End If
Next i
End Sub
```
这些代码示例展示了如何使用VBA快速提取数据，你可以根据具体需求进行调整和扩展。