计算行数（数据透视表 VBA）

Question

我基本上有一些数据，我需要计算每行（名为“进程”）发生的次数（使用 VBA）。 我使用内置的 Excel 宏，并使用数据透视表来计算每行的实例数，但是，问题是当我运行宏时，它只返回进程总数。

这是我的代码：

    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    DataSheet = ActiveSheet.Name
    Sheets.Add
    newsheet = ActiveSheet.Name
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        DataSheet & "!R1C1:R" & FinalRow & "C52", Version:=6).CreatePivotTable TableDestination:= _
        newsheet & "!R3C1", TableName:="PivotTable24", DefaultVersion:=6
    Sheets(newsheet).Select
    Cells(3, 1).Select

    With ActiveSheet.PivotTables("PivotTable24").PivotFields("Process")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable24").AddDataField ActiveSheet.PivotTables( _
        "PivotTable24").PivotFields("Process"), "Count of Process", xlCount
End Sub

如果我删除 End With 和 End Sub 之间的代码，我会得到一个数据透视表，其中的行作为进程列表。 但是当我添加这两行时，我只会得到一个名为“进程计数”的值，其中包含总计值。 我很确定问题出在那里。 谢谢。