Подсчет строк (сводная таблица VBA) - PullRequest
Новая
       3

Подсчет строк (сводная таблица VBA)

0 голосов
/ 10 марта 2020

У меня в основном есть некоторые данные, и мне нужно подсчитать, сколько раз встречается каждая строка (под названием «Процесс») (с использованием 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, я получаю сводную таблицу со строками в виде списка процессов. Но когда я добавляю эти две строки, я просто получаю значение «Количество процессов» со значением «Общая сумма». Я почти уверен, что проблема лежит где-то там. Спасибо.

...