[已解决]表格筛选，重新排列

sj_dcy

附件表格里有Sheet1和Sheet2，在Sheet1里输入好的数值，怎样能按照Sheet2 格式显示。详见附件，图片。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-24 11:48

(, 下载次数: 3)

上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Option Explicit

Sub test3()
    Application.ScreenUpdating = False
    Call test1
    Call test2
End Sub

'创建方式1：先创建数据透视表缓存对象，再创建数据透视表
Sub test1()
    Dim data As Range
    Dim pc As PivotCache
    Dim pt As PivotTable
    '指定数据源
    Set data = Sheets(1).[a1].CurrentRegion
    '创建空白工作表，存放数据透视表。
    Sheets.Add after:=Sheets(Sheets.Count)
    '创建 数据透视表的缓存（PivotCache 对象）
    Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, data, xlPivotTableVersion12)    'Excel 2007
    '创建一个基于 数据透视表的缓存（PivotCache 对象）的数据透视表。透视表左上角在A1
    Set pt = pc.CreatePivotTable([a1])
    With pt
        .PivotFields("Model").Orientation = xlRowField
        .PivotFields("Side").Orientation = xlRowField
        .PivotFields("PartNO.").Orientation = xlRowField
        .PivotFields("Data").Orientation = xlColumnField
        .PivotFields("BOM Spec (Revision)").Orientation = xlDataField
        '4）其它设置
        '对数据透视表中的所有透视字段重复项目标签
        .RepeatAllLabels xlRepeatLabels
        '同时为所有现有的透视字段设置版式选项:表格形式
        .RowAxisLayout xlTabularRow
        '隐藏行总计
        .RowGrand = False
        '隐藏列总计
        .ColumnGrand = False
        '不显示分类汇总（12个 False）
        .PivotFields("Model").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
        .PivotFields("Side").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
        .PivotFields("PartNO.").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
    End With

End Sub

Sub test2()
    Dim A, d, i, j, x
    '创建字典
    Set d = CreateObject("scripting.dictionary")
    A = Sheets(1).UsedRange
    For i = 2 To UBound(A)
        x = ""
        For j = 1 To 4
            x = x & "," & A(i, j)
        Next j
        d(x) = A(i, 5)
    Next i

    '查询字典
    A = ActiveSheet.UsedRange.Offset(1, 0)
    Cells.Clear
    Rows(1).NumberFormatLocal = "yyyy/m/d"
    [a1].Resize(UBound(A), UBound(A, 2)) = A
    For i = 2 To UBound(A)
        For j = 4 To UBound(A, 2)
            x = "," & A(1, j) & "," & A(i, 1) & "," & A(i, 2) & "," & A(i, 3)
            If d.exists(x) Then A(i, j) = d(x)
        Next j
    Next i
    [a1].Resize(UBound(A), UBound(A, 2)) = A
'    Range("a1").CurrentRegion.EntireColumn.AutoFit
End Sub

BOM Version Check sheet_2.rar (26.08 KB, 下载次数: 3)

2016-5-24 10:28 上传

点击文件名下载附件



运行前后，都只留了1行标题。

爱疯

，原来是函数题

sj_dcy

爱疯 发表于 2016-5-24 10:30
Option Explicit

Sub test3()

你好   感谢你的帮助     附件我下载下来 怎么无法运行啊    怎么使用

爱疯

sj_dcy 发表于 2016-5-24 10:36
你好   感谢你的帮助     附件我下载下来 怎么无法运行啊    怎么使用

是这样设置的吗

sj_dcy

爱疯 发表于 2016-5-24 10:43
是这样设置的吗

是那样设置的。 我下载下来你的表格---》点击    按钮1   报错。附件图片报错内容。
数据透视表缓存对象是什么意思啊

爱疯

sj_dcy 发表于 2016-5-24 10:51
是那样设置的。 我下载下来你的表格---》点击    按钮1   报错。附件图片报错内容。
数据透视表缓存对象 ...

注释第一行，变绿，再执行

sj_dcy

爱疯 发表于 2016-5-24 10:54
注释第一行，变绿，再执行

你好
   怎么让注释第一行变绿啊？

爱疯

在Option Explicit的前面，加上'

如果还不行，那么就把 xlRepeatLabels，改成2

sj_dcy

爱疯 发表于 2016-5-24 11:12
在Option Explicit的前面，加上'

如果还不行，那么就把 xlRepeatLabels，改成2

你好    更改完了 公式可以运行。我想显示数值，不是显示计数。有什么办法吗