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