0

我是一个 VBA 菜鸟，谦虚地需要一些帮助。我借用了一个代码，用于对特定的枢轴项目进行分组。该代码在大多数情况下工作得很好，但它遗漏了下面代码中突出显示的 2 个枢轴项，它们属于（根据代码）创建的特定组。我附上了代码和屏幕截图。请帮忙。

谢谢你。

Dim itm2 As PivotItem
Dim unionrng2 As Range
Dim rLabel2 As Range

For Each itm2 In 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Processor").PivotItems
If (itm2.Name = "Credit Card - Benefit Lifestyle" Or itm2.Name = "Credit 
Card - Benefits Dental" Or itm2.Name = "Credit Card - Benefits Eye" Or 
itm2.Name = "Credit Card - Benefits Lab1 22" Or itm2.Name = "Credit Card - 
Benefits Lab2" Or itm2.Name = "Credit Card - Benefits Save 2" Or itm2.Name = 
"Credit Card - Benefits Save 72" Or itm2.Name = "Credit Card - NMI CH Dental 
2" Or itm2.Name = "Credit Card - NMI CH Eye savings 16" Or itm2.Name = 
"Credit Card - NMI Q1" Or itm2.Name = "Credit Card - NMI Q2" Or itm2.Name 
= "Credit Card - NMI Q3" **<"This one is left out of the group"** Or 
itm2.Name = "Credit Card - NMI Q4") Then
        Set rLabel2 = itm2.LabelRange
        On Error GoTo 0
        If Not rLabel2 Is Nothing Then
            If unionrng2 Is Nothing Then
                Set unionrng2 = rLabel2
            Else
                Set unionrng2 = Union(unionrng2, rLabel2)
            End If
        End If
    End If
Next itm2
unionrng2.Group

Dim itm5 As PivotItem
Dim unionrng5 As Range
Dim rLabel5 As Range

For Each itm5 In 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Processor").PivotItems
    If (itm5.Name = "ACH - AMC Chase 40 (Authorize)" Or itm5.Name = "ACH - 
C&H All (2967)" **<"This one is left out of the group"** Or itm5.Name = "ACH 
- C&H Discount Medical (2992)" Or 
itm5.Name = "ACH - Dental (3342)" Or itm5.Name = "ACH - Lab 1 (3339)" Or 
itm5.Name = "ACH - Lab 2 (3340)" Or itm5.Name = "ACH - Platinum Plus (3341)" 
Or itm5.Name = "ACH - Premier (3343)" Or itm5.Name = "ACH - Vision Benefits 
(3338)") Then
        Set rLabel5 = itm5.LabelRange
        On Error GoTo 0
        If Not rLabel5 Is Nothing Then
            If unionrng5 Is Nothing Then
                Set unionrng5 = rLabel5
            Else
                Set unionrng5 = Union(unionrng5, rLabel5)
            End If
        End If
    End If
Next itm5
unionrng5.Group

问题截图

问题截图

4

0 回答 0