VB中从现有Excel工作表创建新表格的语法问题求助

错误根源 #

1. 你使用的DataTable、DataRow、DataColumn是.NET框架专属类，VBA环境不支持这些对象，代码无法执行。
2. VBA语法规则不允许在变量声明时直接赋值（如Dim workRow As DataRow = table.NewRow()），必须先声明变量，再单独赋值，这是触发Expected: End of statement错误的直接原因。

解决方案：复制指定列到新表并转为Excel表格 #

下面的宏会将你需要的列复制到新工作表，自动转为Excel内置表格（可直接用于创建数据透视表），是最适合你需求的实现方式：

Sub CreateCleanTableForPivot()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim finalRow As Long
    Dim targetRange As Range
    
    ' 替换为你的源工作表名称
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    ' 创建新工作表存放精简数据
    Set wsTarget = ThisWorkbook.Worksheets.Add
    wsTarget.Name = "CleanData"
    
    ' 获取源表F列（第6列）的最后一行数据行号
    finalRow = wsSource.Cells(wsSource.Rows.Count, 6).End(xlUp).Row
    
    ' --------------------------
    ' 关键：修改以下列号为实际对应列
    ' 示例：假设Strike在A列(1)、Expiry在B列(2)、Call Delta在C列(3)、Put Delta在D列(4)
    ' 标题行假设在第5行（因为数据从第6行开始）
    ' --------------------------
    ' 复制标题
    wsSource.Range("A5:D5").Copy wsTarget.Range("A1")
    ' 复制数据行（第6行到最后一行）
    wsSource.Range("A6:D" & finalRow).Copy wsTarget.Range("A2")
    
    ' 将目标区域转为Excel表格（命名为TotOpenOI）
    Set targetRange = wsTarget.Range("A1:D" & finalRow - 4) ' 计算总数据行数（含标题）
    wsTarget.ListObjects.Add(xlSrcRange, targetRange, , xlYes).Name = "TotOpenOI"
End Sub

代码说明 #

• 避免使用ActiveSheet，明确指定源/目标工作表，防止操作错误
• 复制指定列的标题和数据后，直接转为Excel内置表格（ListObject），这个表格可以直接作为数据透视表的数据源
• 必须根据你的实际工作表结构，修改代码中列号和标题行号

备选方案：用数组批量处理数据（适合复杂场景） #

如果需要在内存中处理数据再写入，可以用数组实现：

Sub CreateTableWithArray()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim finalRow As Long
    Dim dataArray As Variant
    Dim i As Long, j As Long
    
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets.Add
    wsTarget.Name = "CleanData"
    
    finalRow = wsSource.Cells(wsSource.Rows.Count, 6).End(xlUp).Row
    ' 定义要提取的列号，按顺序对应Strike、Expiry、Call Delta、Put Delta
    Dim colsToExtract As Variant
    colsToExtract = Array(1, 2, 3, 4) ' 示例：A、B、C、D列
    
    ' 初始化数组：行数=标题行+数据行，列数=4
    ReDim dataArray(1 To finalRow - 4, 1 To 4)
    
    ' 写入标题（假设标题在第5行）
    For j = 0 To UBound(colsToExtract)
        dataArray(1, j + 1) = wsSource.Cells(5, colsToExtract(j)).Value
    Next j
    
    ' 写入数据行
    For i = 6 To finalRow
        For j = 0 To UBound(colsToExtract)
            dataArray(i - 4, j + 1) = wsSource.Cells(i, colsToExtract(j)).Value
        Next j
    Next i
    
    ' 将数组写入目标工作表
    wsTarget.Range("A1").Resize(UBound(dataArray, 1), UBound(dataArray, 2)).Value = dataArray
    
    ' 转为Excel表格
    wsTarget.ListObjects.Add(xlSrcRange, wsTarget.Range("A1").Resize(UBound(dataArray, 1), UBound(dataArray, 2)), , xlYes).Name = "TotOpenOI"
End Sub

内容的提问来源于stack exchange，提问作者reknirt