首先帮你揪出代码里的致命小疏漏：你写的触发条件是If Target.Address = "$C$3"，但需求明明是当C17单元格值变更时触发宏！这会导致修改C17时代码根本不会执行，只有误改C3才会跑逻辑——这大概率是你测试时没注意到的点，先把这个修正过来。

接下来分析导致1004错误的核心原因：

• 切片器中不存在对应项：当你直接调用.SlicerItems(n).Selected = True时，如果当前循环的n（比如201753或者替换后的201801）在切片器里没有对应的选项，就会抛出1004错误。
• 循环变量修改的隐患：你把n=201753直接替换成201801，逻辑本身没问题，但如果201801本身不在切片器里，还是会报错。
• 切片器缓存名称可能不匹配：要确认"Slicer_YYYYWW"是实际的切片器缓存名称，可以在VBA立即窗口输入ActiveWorkbook.SlicerCaches查看所有缓存名。

修复后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 18.01.2018 Oscar E. | 优化修复版
    Dim startDate As Long
    Dim endDate As Long
    Dim currentWW As Long
    Dim slicerCache As SlicerCache
    Dim slicerItem As SlicerItem
    
    ' 仅当C17单元格变更时触发（用Intersect更可靠，避免行列插入导致地址变化）
    If Not Intersect(Target, Me.Range("$C$17")) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件，防止公式计算重复触发
        On Error GoTo ErrorHandler ' 全局错误捕获
        
        ' 获取起止周数
        endDate = Me.Range("C17").Value
        startDate = Me.Range("G17").Value
        
        ' 验证起止逻辑，避免反向循环
        If startDate > endDate Then
            MsgBox "起始周数不能大于结束周数！", vbExclamation
            GoTo Cleanup
        End If
        
        ' 绑定切片器缓存，提前确认存在
        Set slicerCache = ActiveWorkbook.SlicerCaches("Slicer_YYYYWW")
        
        ' 先清除所有筛选
        slicerCache.ClearManualFilter
        
        ' 遍历起止区间内的所有周数
        For currentWW = startDate To endDate
            ' 处理特殊跨年周：201753替换为201801
            If currentWW = 201753 Then
                currentWW = 201801
            End If
            
            ' 检查切片器项是否存在，避免1004错误
            On Error Resume Next ' 临时忽略查找错误
            Set slicerItem = slicerCache.SlicerItems(CStr(currentWW))
            On Error GoTo ErrorHandler ' 恢复全局错误捕获
            
            If Not slicerItem Is Nothing Then
                slicerItem.Selected = True
            Else
                Debug.Print "⚠️ 切片器中不存在项：" & currentWW ' 调试用，可删除
            End If
        Next currentWW
        
Cleanup:
        Application.EnableEvents = True ' 恢复事件触发
        Exit Sub ' 正常退出
        
ErrorHandler:
        MsgBox "运行错误：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbExclamation
        slicerCache.ClearManualFilter ' 出错后重置切片器状态
        GoTo Cleanup
    End If
End Sub

关键修复&优化点说明 #

1. 修正触发逻辑：用Intersect(Target, Me.Range("$C$17"))判断触发单元格，比直接对比地址更可靠（插入行列后单元格地址会变化，Intersect不受影响）。
2. 添加事件禁用：因为G17是公式计算的，修改C17会导致Worksheet_Change多次触发，添加Application.EnableEvents = False可以避免循环触发问题。
3. 切片器项存在性检查：先尝试获取对应的SlicerItem，只有当项存在时才设置选中，彻底避免1004错误。
4. 起止有效性验证：添加startDate > endDate的判断，防止反向循环导致逻辑混乱。
5. 错误处理机制：全局错误捕获+出错后重置切片器状态，避免用户遇到崩溃后切片器处于异常状态。
6. 调试信息：Debug.Print输出不存在的周数，方便你排查数据源中缺失的项。

额外扩展建议 #

• 可扩展的跨年周处理：如果未来还有类似202453这样的跨年周，可以用字典来维护映射，方便扩展：

  ' 需先引用「Microsoft Scripting Runtime」
  Dim specialWWMap As New Dictionary
  specialWWMap.Add 201753, 201801
  specialWWMap.Add 202453, 202501
  
  ' 循环中替换为：
  If specialWWMap.Exists(currentWW) Then
      currentWW = specialWWMap(currentWW)
  End If
  

• 确认数据源一致性：确保切片器关联的数据源中包含所有你要选中的YYYYWW值，否则切片器里不会生成对应的选项。
• 切片器缓存名称动态获取：如果担心缓存名称变化，可以通过切片器名称来获取缓存，比如：

  Set slicerCache = Me.Slicers("你的切片器显示名称").SlicerCache
  

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