非英文Excel版本中如何通过Slicers联动普通Table和Pivot Table

你遇到的非英文Excel环境失效问题，核心是原代码逻辑强依赖Excel界面语言：无论是按名称查找"Standard"命令栏、"&Undo"撤销按钮，还是后续匹配撤销操作的英文文本"Filter"、"Slicer Operation"，在非英文环境下都会因为文本不匹配导致后续筛选逻辑不执行，且不会抛出报错。

直接移除所有依赖界面语言的逻辑，简化触发条件即可实现全语言版本兼容，修改后完整代码如下：

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim sc          As SlicerCache
    Dim si          As SlicerItem
    Dim vItems      As Variant
    Dim i           As Long
    Dim lo          As ListObject
    Dim lc          As ListColumn
    Dim sTest       As String

    ' 此处修改为你自己的透视表名称、普通表格名称
    Const sPivot As String = "pivot1"
    Const sTable As String = "Table1"

    If Target.Name <> sPivot Then Exit Sub

    ' 定位需要联动的普通表格，此处修改为你自己的工作表名称
    Set lo = Sheets("Sheet1").Range(sTable).ListObject

    ' 遍历所有切片器缓存，同步筛选到普通表格
    For Each sc In ActiveWorkbook.SlicerCaches
        On Error Resume Next
        sTest = sc.PivotTables(1).Name
        On Error GoTo 0
        If sTest = sPivot Then
            Set lc = lo.ListColumns(sc.SourceName)
            If sc.FilterCleared Then
                ' 切片器清空时同步清空普通表对应字段筛选
                lo.Range.AutoFilter Field:=lc.Index
            Else
                ReDim vItems(1 To 1)
                i = 0
                ' 收集切片器选中项
                For Each si In sc.SlicerItems
                    If si.Selected Then
                        i = i + 1
                        ReDim Preserve vItems(1 To i)
                        vItems(i) = si.Name
                    End If
                Next si
                ' 应用筛选到普通表
                lo.Range.AutoFilter Field:=lc.Index, Criteria1:=vItems, Operator:=xlFilterValues
                Erase vItems
            End If
        End If
    Next sc
End Sub

1. 完全删除了原代码中依赖语言的撤销栈判断逻辑：Worksheet_PivotTableUpdate事件本身仅会在透视表更新时触发，只要判断触发的是指定透视表，直接执行筛选同步即可，覆盖所有切片器操作、透视表手动筛选的场景，没有额外副作用。
2. 补充了变量i的初始值重置，避免多次触发时计数异常。
3. 所有自定义参数都集中在代码开头注释标注，修改时不需要改动核心逻辑。

• 代码需要放置在透视表所在的工作表代码模块中才能生效
• 请根据实际情况修改代码开头的sPivot（透视表名称）、sTable（普通表名称）、Sheets("Sheet1")（普通表所在工作表）三个参数

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