zoukankan      html  css  js  c++  java
  • vba:按照某列结果做透视

    Sub 从首列提取周次到第二列并透视()

    For i = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
    c = ActiveSheet.Cells(i, 1).Value
    ActiveSheet.Cells(i, 2).Value = Mid(c, 5, 2)
    Next

    ActiveSheet.Range("B1").Value = "周次"
    '按照周次做透视表
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Sheet1!R1C2:R1048576C2", Version:=xlPivotTableVersion10).CreatePivotTable _
    TableDestination:="Sheet1!R4C10", TableName:="数据透视表2", DefaultVersion:=xlPivotTableVersion10
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("周次")
    .Orientation = xlColumnField
    .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表2").AddDataField ActiveSheet.PivotTables("数据透视表2").PivotFields("周次"), "计数项:周次", xlCount
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("周次")
    .Orientation = xlColumnField
    .Position = 1
    End With

    End Sub

  • 相关阅读:
    平衡树-SBT
    平衡树-Splay
    平衡树-Treap
    Placing Medals on a Binary Tree Gym
    The 2016 Asia Regional Contest, Tsukuba Quality of Check Digits Gym
    shift-and 算法初体验
    汇编
    6.828(1)准备工作
    硬件
    git操作
  • 原文地址:https://www.cnblogs.com/yukit/p/14084103.html
Copyright © 2011-2022 走看看