我一眼就看出问题所在了——你的宏每次循环都用同一个固定的文件路径导出PDF，导致后面的文件直接覆盖了前面的，最后自然只剩最后一个结果。另外，你还需要确保公式有足够时间完成计算再导出，不然可能拿到的是旧数据。

核心问题点 #

• 固定文件名导致覆盖：fPathFile = [NewStoreRollout]写在循环外面，只会获取一次路径，每次导出都用同一个文件，前面的PDF被不断覆盖。
• 缺少公式计算等待：修改D8后，Excel需要时间完成关联公式的计算，直接导出可能拿到未更新的内容。

修正后的宏代码 #

Sub Print_To_PDF()
    Dim vRws As Long, vRng As Range
    Dim d As Range, d8 As Range, Wst As Worksheet
    Dim fPathFile As String
    
    ' 提前设置工作表对象，避免重复Activate
    Set Wst = Worksheets("MS Wall Summary Daily View")
    Set d8 = Wst.Range("D8")
    
    With Wst
        vRws = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set vRng = .Range(.Cells(2, "A"), .Cells(vRws, "A")) ' 注意前面的.，避免引用错误工作表
        .PageSetup.PrintArea = "$C$2:$M$116"
    End With
    
    For Each d In vRng.Cells
        ' 填入下拉值到D8
        d8.Value = d.Value
        
        ' 等待公式完全计算完成
        DoEvents
        Application.CalculateUntilAsyncQueriesDone
        
        ' 每次循环重新获取关联的文件路径（因为D8变化会带动P7的NewStoreRollout更新）
        fPathFile = Wst.Parent.Names("NewStoreRollout").RefersToRange.Value
        
        ' 导出PDF，此时路径是当前D8对应的唯一路径
        Wst.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=fPathFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next d
    
    MsgBox "All PDFs have been generated successfully!"
End Sub

关键修改说明 #

1. 移动文件路径获取到循环内：每次更新D8后，重新读取NewStoreRollout对应的路径（也就是关联的P7单元格值），确保每个值对应唯一的PDF文件，不会被覆盖。
2. 添加公式计算等待：
   • DoEvents让Excel处理完当前的事件队列
   • Application.CalculateUntilAsyncQueriesDone确保所有异步公式（比如Power Query、外部数据刷新）也完成计算，保证导出的内容是最新的
3. 优化工作表引用：去掉了不必要的Activate，直接用对象引用，避免激活工作表带来的潜在错误，代码更稳定。
4. 修正Range引用：Set vRng = .Range(...)前面加了.，确保引用的是Wst工作表的A列范围，而不是当前激活的工作表。

这样修改后，你的宏就会按照预期：遍历每个下拉值、等待计算完成、导出对应唯一路径的PDF，不会再出现覆盖的问题了。

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