在数据透视表里如何按时间段分组

应木

00:00:12.00                        1                1
00:00:13.00        1                                1
00:00:14.00                1                        1
00:00:15.00        1                                1
00:00:16.00                                1        1
00:00:17.00        1                                1
00:00:18.00                        1                1
00:00:19.00        1                                1
00:00:21.00        1                                1
00:00:22.00                1                        1
00:00:24.00                                1        1
00:00:25.00        1                                1
00:00:26.00                        1                1


上面是数据透视表的一部分，我想以每五秒进行分组。VBA代码怎么写呀？我是新手，请大家多多关注哦！

wisp

透视表里可以直接按秒分组

fengbin7506

最好上传一下附件。

应木

由于我的excel数据需要从外部导入，所以可能发附件了也不能运行。我把建立这个数据透视表的代码发上来了，我想在这基础上把时间按每五秒分组。谢谢你帮助我！
Dim WSD As Worksheet
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    Dim PRange As Range
    Dim FinalRow As Long
    Set WSD = Worksheets("PivotTable")
        
    ' Delete any prior pivot tables
    For Each PT In WSD.PivotTables
        PT.TableRange2.Clear
    Next PT
    WSD.Range("M1:Z1").EntireColumn.Clear
   
        
    ' Define input area and set up a Pivot Cache
    FinalRow = WSD.Cells(Application.Rows.Count, 1).End(xlUp).Row
    FinalCol = WSD.Cells(1, Application.Columns.Count). _
        End(xlToLeft).Column
    Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol)
    Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:= _
        xlDatabase, SourceData:=PRange.Address)
   
    ' Create the Pivot Table from the Pivot Cache
    Set PT = PTCache.CreatePivotTable(TableDestination:=WSD. _
        Cells(2, FinalCol + 2), TableName:="PivotTable1")
   
    ' Turn off updating while building the table
    PT.ManualUpdate = True
   
    ' Set up the row & column fields
    PT.AddFields RowFields:="时刻", _
        ColumnFields:="车型"
   
    ' Set up the data fields
    With PT.PivotFields("数量")
        .Orientation = xlDataField
        .Function = xlSum
        .Position = 1
    End With
   
    ' Calc the pivot table
    PT.ManualUpdate = False
    PT.ManualUpdate = True
   
    WSD.Activate
    Range("M1").Select
    End sub

应木

我希望用VBA来实现的哦。不过还是谢谢你帮助我！