嘿，我太懂你这种要合并大量幻灯片还要交替排列的痛苦了——手动拖100次绝对要疯！下面给你几个实用的方案，从半自动化到一键搞定都有，亲测好用：

如果不想碰代码，这个方法比纯手动复制粘贴省心不少：

• 先打开你的PPT1（全是A系列幻灯片的那个），建议新建一个空白演示文稿来操作，避免误改原文件
• 点击顶部「开始」选项卡，找到「重用幻灯片」按钮（要是找不到，右键点击菜单栏空白处，勾选「重用幻灯片」就能调出侧边栏）
• 在侧边栏里点击「浏览」，选中你的PPT2（B系列幻灯片），记得勾选侧边栏底部的**「保留源格式」**，不然B幻灯片会变成PPT1的样式，白忙活
• 重点操作：别一次性全选插入！按顺序来——先插入PPT2的第1B，放在PPT1的第1A后面；接着插入第2B，放在第2A后面……虽然还是要操作100次，但比手动复制粘贴每张幻灯片快多了，还能保证格式统一

这个方法绝对是效率天花板，几分钟就能完成100页的交替合并：

• 打开PPT1，按下Alt + F11打开VBA编辑器
• 右键点击左侧的「VBAProject(你的PPT1文件名)」，选择「插入」→「模块」
• 把下面的代码粘贴进去：

Sub MergeAlternatingSlides()
    Dim pptSource As Presentation
    Dim targetSlide As Slide
    Dim i As Integer
    
    ' 弹出文件选择框，选中要合并的PPT2
    Set pptSource = Presentations.Open(Application.GetOpenFilename("PowerPoint Files (*.ppt;*.pptx), *.ppt;*.pptx"))
    
    ' 从最后一张幻灯片往前插入，避免序号混乱
    For i = pptSource.Slides.Count To 1 Step -1
        pptSource.Slides(i).Copy
        ' 将B幻灯片插入到对应A幻灯片的后面
        Set targetSlide = ActivePresentation.Slides(i)
        targetSlide.InsertAfter.Paste
    Next i
    
    ' 关闭PPT2，不保存（需要保存的话把False改成True）
    pptSource.Close SaveChanges:=False
    
    MsgBox "合并完成！快检查下顺序吧～"
End Sub

• 按下F5运行宏，在弹出的窗口里选中你的PPT2，剩下的交给宏就行！
• 小提醒：运行前一定要备份两个原PPT，防止意外；如果两个PPT的幻灯片数量不一样，宏会按数量少的那个合并，你可以根据需求调整代码里的循环范围

• 如果两个PPT的主题样式差异大，不管用哪种方法，都要确认「保留源格式」选项是勾选的，不然合并后的幻灯片样式会乱
• 合并后记得检查首尾几页，要是原PPT里有隐藏幻灯片，宏会自动跳过，记得先取消隐藏再合并

内容的提问来源于stack exchange，提问作者Sibren De Preter