VBA中如何使用数组选择切片器（Slicer）的指定项

问题原因 #

你的代码失效核心是两个问题：

1. 原GetSelectedSlicerItems函数拼接选中项时用的分隔符是, （逗号+空格），你直接用Split(str, ",")拆分后，除第一个选中项外，其余项的开头都会多出一个空格，和切片器实际存储的项名不匹配，导致选中失败。单选项场景下没有分隔符，所以不会触发这个问题。
2. 没有处理函数的特殊返回值：源切片器全选时函数会返回All Items、无选中项或切片器名称错误时会返回提示文本，这两类场景直接拆分字符串没有实际意义。

修复步骤 #

1. 替换vSelection赋值逻辑 #

把你原来修改的代码段：

str = GetSelectedSlicerItems("Slicer_Afdeling1") 
vSelection = Split(str, ",")

替换为以下代码，兼容特殊场景和分隔符格式：

Dim sourceSel As String
sourceSel = GetSelectedSlicerItems("Slicer_Afdeling1")

' 处理特殊返回场景
Select Case sourceSel
    Case "All Items"
        ' 源切片器全选时直接清空目标切片器筛选即可实现全选，跳过后续逐个选中逻辑
        sc.ClearAllFilters
        GoTo FinalUpdate
    Case "No items selected", "No slicer with name 'Slicer_Afdeling1' was found"
        MsgBox "源切片器获取失败：" & sourceSel, vbExclamation
        Exit Sub
End Select

' 用逗号+空格作为分隔符拆分，避免项名前多余空格
vSelection = Split(sourceSel, ", ")

2. 新增跳转标记 #

在原代码的End With之后、批量更新透视表的代码之前，添加跳转标记FinalUpdate:，对应全选场景的跳转：

End With

FinalUpdate: ' 新增这行标记
For Each pt In sc.PivotTables
    pt.ManualUpdate = False
Next pt

可选优化 #

如果存在项名首尾有不可见空格导致匹配失败的情况，可以修改选中逻辑增加Trim处理：

For Each vItem In vSelection
    .SlicerItems(Trim(vItem)).Selected = True
Next vItem

内容的提问来源于stack exchange，提问作者Keymaster