在 VBA 中，可以使用 Range 对象和 Loop 循环来提取数据并生成新表。以下是一个示例代码，演示了如何从一个工作表中提取数据，并将其复制到一个新创建的工作表中：
```vba
Sub 提取数据生成新表()
Dim 原表 As Worksheet
Dim 新表 As Worksheet
Dim 原数据范围 As Range
Dim 新数据范围 As Range
Dim 原最后行 As Long
Dim 新最后行 As Long
Dim i As Long
' 设置原表和新表
Set 原表 = ThisWorkbook.Worksheets("Sheet1") ' 修改 Sheet1 为原表的名称
Set 新表 = ThisWorkbook.Worksheets.Add ' 新建一个工作表
' 获取原表中的数据范围
原最后行 = 原表.Cells(Rows.Count, 1).End(xlUp).Row ' 获取原表中最后一行的行号
Set 原数据范围 = 原表.Range("A1:D" & 原最后行) ' 修改 A1:D 为原表中数据的范围
' 将原表中的数据复制到新表
新最后行 = 1
For i = 1 To 原数据范围.Rows.Count
If 原数据范围.Cells(i, 1) <> "" Then ' 判断第一列是否有数据
原数据范围.Rows(i).Copy 新表.Cells(新最后行, 1) ' 复制整行数据到新表
新最后行 = 新最后行 + 1
End If
Next i
' 调整新表的列宽
新表.Columns.AutoFit
' 提示生成新表完成
MsgBox "已生成新表。"
End Sub
```
在这个示例代码中，假设原表中的数据位于 Sheet1 工作表的 A 列到 D 列之间，且第一列是数据的标识列（非空单元格）。代码会在运行时创建一个新的工作表，并将原表中的数据复制到新表中。
你可以根据实际需求修改代码中的工作表名称和数据范围。同时，你还可以根据需要对新表进行进一步的格式设置或数据处理。
