VBA中能否让For Each循环从指定位置开始执行？

首先明确：For Each循环本身不支持直接指定起始位置——它的设计逻辑是枚举整个集合的所有元素，没办法直接跳过前N个元素。要实现从第61张幻灯片开始遍历且避免每次判断SlideIndex > 60，最优方案是改用基于索引的For循环，直接从目标索引开始遍历到集合末尾。

推荐方案：基于索引的For循环 #

这种方式直接跳过前60张幻灯片，不需要额外的条件判断，执行效率更高，完全匹配你的需求：

Dim ppt As Object
' 示例：获取当前激活的PowerPoint演示文稿
Set ppt = GetObject(, "PowerPoint.Application").ActivePresentation
Dim sld As Object
Dim i As Integer

' 从第61张开始，遍历到最后一张幻灯片
For i = 61 To ppt.Slides.Count
    Set sld = ppt.Slides(i)
    ' 执行你的复制粘贴等操作
    ' Do my stuff
Next i

关于For Each的替代思路 #

PowerPoint的Slides集合不像Excel的Range那样支持直接指定子范围（比如Range("A61:A100")），没有内置方法能直接返回从第N张开始的子集合。如果非要用For Each，只能先把需要的幻灯片存入临时集合再遍历，但这会多一步集合创建的开销，效率反而不如直接用索引循环：

Dim ppt As Object
Set ppt = GetObject(, "PowerPoint.Application").ActivePresentation
Dim sld As Object
Dim tempSlides As Collection
Set tempSlides = New Collection

' 先将目标幻灯片加入临时集合
Dim i As Integer
For i = 61 To ppt.Slides.Count
    tempSlides.Add ppt.Slides(i)
Next i

' 遍历临时集合
For Each sld In tempSlides
    ' Do my stuff
Next sld

综上，优先选择基于索引的For循环，既简洁又高效。

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