别担心，我来帮你搞定这段VBA代码，顺便把PPT里的范围设置逻辑讲清楚，这样你以后自己也能灵活调整啦！

下面分两种场景给你代码，你可以根据自己的情况选择：

场景1：PPT1和PPT2已经打开 #

如果两个演示文稿都已经在PowerPoint里打开了，用这段代码最方便：

Sub CopySlidesToPPT1()
    Dim ppt1 As Presentation
    Dim ppt2 As Presentation
    Dim targetSlideCount As Integer
    
    ' 替换成你实际的文件名（要带后缀，比如.pptx）
    Set ppt1 = Presentations("PPT1.pptx")
    Set ppt2 = Presentations("PPT2.pptx")
    
    ' 获取PPT1当前的幻灯片总数，确定粘贴到末尾的位置
    targetSlideCount = ppt1.Slides.Count
    
    ' 重点：Range(起始编号, 结束编号)就是指定要复制的幻灯片范围
    ' 这里用1到ppt2.Slides.Count，就是选中PPT2的全部幻灯片
    ppt2.Slides.Range(1, ppt2.Slides.Count).Copy
    
    ' 粘贴到PPT1最后一张幻灯片的后面
    ppt1.Slides.Paste targetSlideCount + 1
    
    ' 释放内存里的对象
    Set ppt2 = Nothing
    Set ppt1 = Nothing
    
    MsgBox "幻灯片复制完成！"
End Sub

场景2：PPT1和PPT2还没打开（从磁盘加载） #

如果文件还在电脑里没打开，用这段代码会自动打开文件、复制、保存：

Sub CopySlidesFromClosedPPT()
    Dim ppt1 As Presentation
    Dim ppt2 As Presentation
    Dim ppt1Path As String
    Dim ppt2Path As String
    Dim targetSlideCount As Integer
    
    ' 替换成你实际的文件路径，比如"C:\Documents\PPT1.pptx"
    ppt1Path = "你的PPT1完整路径"
    ppt2Path = "你的PPT2完整路径"
    
    ' 打开PPT1，只读打开PPT2避免修改原文件
    Set ppt1 = Presentations.Open(ppt1Path)
    Set ppt2 = Presentations.Open(ppt2Path, ReadOnly:=True)
    
    targetSlideCount = ppt1.Slides.Count
    
    ' 同样用Range选中PPT2全部幻灯片复制
    ppt2.Slides.Range(1, ppt2.Slides.Count).Copy
    ppt1.Slides.Paste targetSlideCount + 1
    
    ' 保存PPT1的修改，关闭PPT2不保存（因为是只读打开的）
    ppt1.Save
    ppt2.Close SaveChanges:=False
    
    Set ppt2 = Nothing
    Set ppt1 = Nothing
    
    MsgBox "幻灯片复制完成！"
End Sub

怎么运行代码？ #

1. 打开PPT1，按下Alt + F11打开VBA编辑器
2. 在左侧的“工程”面板里，右键点击PPT1的工程，选择【插入】→【模块】
3. 把上面的代码粘贴到模块窗口里，修改文件名或路径
4. 按下F5运行宏，或者点击编辑器上方的运行按钮

关键说明：关于PPT的范围设置 #

你之前疑惑的范围设置，其实就是用Slides.Range(起始编号, 结束编号)来指定要操作的幻灯片：

• 比如你要复制PPT2的第1到第4张，就写ppt2.Slides.Range(1,4)
• 我代码里用ppt2.Slides.Count代替固定的4，这样就算PPT2以后加了或减了幻灯片，代码依然能用，不用手动改数字~

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