在 VBA 中，可以使用 Range 對象和 Loop 循環來提取數據并生成新表。以下是一個示例代碼，演示了如何從一個工作表中提取數據，并將其復制到一個新創建的工作表中：
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 列之間，且第一列是數據的標識列（非空單元格）。代碼會在運行時創建一個新的工作表，并將原表中的數據復制到新表中。
你可以根據實際需求修改代碼中的工作表名稱和數據范圍。同時，你還可以根據需要對新表進行進一步的格式設置或數據處理。
