使用VBA代码使组正常工作

Question

我试图通过在VBA代码中使用Group函数来隐藏某些列。该组显示在我输出的Excel文件中，但是没有像我期望的那样折叠列。有什么想法让我无法正确折叠这些列？

xlBook.ActiveSheet.Columns("A").AutoFit
xlApp.ActiveWorkbook.ShowPivotTableFieldList = False
'xlBook.ShowPivotTableFieldList = False

With xlBook.ActiveSheet.Columns("B:O")
 .Group
End With

xlBook.ActiveSheet.Outline.ShowLevels columnLevels:=1
xlApp.ScreenUpdating = True


xlSheet.Columns.AutoFit

Answer 1

不允许在后面有数据透视表时对整个列进行分组。

路径将是对数据透视表中的元素进行分组。

如您所见，您正在其他应用程序中执行此操作，请尝试使用宏记录器选择要分组的数据透视表列标签，然后在“数据” /“分组”按钮中单击丝带。

复制生成的代码并尝试对其进行修改。

以下是一个很好的参考资料，您可以遵循： http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=153:excel-pivot-tables-grouping-group-items-group-data-and-group-date-values-using-vba&catid=79&Itemid=475

让我知道这是否有帮助。