感谢您发送编修。
我正在使用数据透视表对象。我希望使用VBA设置以下表格中Class1和Class2整行（**，表格引用）的格式。
我了解我可以用途：

s = DataRange/LabelRange, with PivotTable(n).PivotFields(m).s

是否有方法可以只选择所需的单元格？

Sum of x  Sum of y  Sum of z
**Class1             C1.X     C1.Y      C1.Z**
   String.C1.1     x         y         z
   String.C1.2     x         y         z
   String.C1.3     x         y         z
**Class2             C1.X     C1.Y      C1.Z**
   String.C2.1     x         y         z
   String.C2.2     x         y         z
   String.C2.3     x         y         z