写VBA代码，在当前表格新建一个透视表，然后将“分选日期”放在行，将“总A级片数”放在值，并且设置为求和项

当然可以！以下是使用 VBA 在当前工作表新建透视表并设置字段的代码：

Sub CreatePivotTable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim ptRange As Range
    
    ' 设置工作表
    Set ws = ActiveSheet
    
    ' 设置透视表数据源范围
    Set ptRange = ws.Range("A1:C10") ' 请根据实际数据范围进行修改
    
    ' 在当前工作表中创建透视表
    Set pt = ws.PivotTables.Add(PivotTableDestination:=ws.Cells(1, 5), TableDestination:=ws.Cells(3, 5))
    
    ' 设置透视表字段
    With pt
        ' 将“分选日期”放在行
        .PivotFields("分选日期").Orientation = xlRowField
        
        ' 将“总A级片数”放在值，并设置为求和项
        With .PivotFields("总A级片数")
            .Orientation = xlDataField
            .Function = xlSum
            .NumberFormat = "0" ' 可根据需要设置数字格式
        End With
        
        ' 可以根据需要添加其他字段
        
        ' 刷新透视表
        .RefreshTable
    End With
End Sub

请将以上代码复制到 VBA 编辑器中（按 ALT + F11 进入 VBA 编辑器），然后运行该宏即可在当前工作表中创建透视表，并按照你的要求设置字段。请根据实际数据范围进行相应修改。