Question

在不产生运行时错误并且使用正确的数据生成透视表并将其放置在正确的位置的意义上，以下代码运行良好。

但是，项目列表已折叠。

部分代码包含在：

从数组中读取列标题
识别可以随机放置在一定范围内的列标题
为每列构建一个一维（即单个字段）数据透视表
将数据透视表放置在指定位置
显示所有项目及其数量

A）使用SHOWDETAIL = True

B）记录宏并“克隆”代码

For Each headerCell In wSh.Range("Ctl_Headers")
    Set sceRange = wSh.Range(headerCell.Value)
    sceRange.Activate
    fRow = sceRange.Row
    lRow = sceRange.Cells.SpecialCells(xlCellTypeLastCell).Row
    fCol = sceRange.Column
    lCol = fCol - 1 + sceRange.Columns.Count

    Set pivCache = wBk.PivotCaches.Add(xlDatabase, wSh.Range(wSh.Cells(fRow, fCol), wSh.Cells(lRow, lCol)))

    Set pivTable = wSh.PivotTables.Add(PivotCache:=pivCache, TableDestination:=wSh.Range(wSh.Cells(1, nrindex), wSh.Cells(1, nrindex)), TableName:="piv" & headerCell.Value)

    pivTable.PivotFields(headerCell.Value).Orientation = xlRowField
    pivTable.AddDataField pivTable.PivotFields(headerCell.Value), "Count " & headerCell.Value, xlCount
    pivTable.PivotFields(headerCell.Value).ShowDetail = True

    nrindex = nrindex + 4
Next headerCell

Answer 1

您将pivTable.PivotFields(headerCell.Value)用作RowField，并将其计数用作DataField。
您必须更改以下代码行才能解决行字段。

之前：

pivTable.PivotFields(headerCell.Value).ShowDetail = True

之后：

pivTable.RowFields(headerCell.Value).ShowDetail = True

如何修复ShowDetail = True，不会扩展详细信息

1 个答案: