请求协助修改VBA代码：循环写入指定单元格并生成PDF

需求背景 #

已通过VBA实现批量按不同文件名保存PDF，现有两个协同工作表：

• Master_Tab：存储主信息
• SubTo：作为PDF生成的模板框架

当前需要补充逻辑：循环过程中，将Master_Tab指定行的D列值写入SubTo的A26单元格，再生成对应文件名的PDF。文件名循环功能已正常，仅需完善单元格写入逻辑。

修改后的完整代码 #

Sub Save_Muiltiple_SubTo_as_pdf()
    ' Sheet 1 Master Tab
    Dim mt As Worksheet
    Set mt = ThisWorkbook.Sheets("Master_Tab")
    Dim row_count As Integer
    Dim LOIFilePath As String
    LOIFilePath = mt.Range("J2")

    ' Sheet 2 Values saved in specific cells
    Dim st As Worksheet
    Set st = ThisWorkbook.Sheets("SubTo")
    Dim pdf_range As Range
    Dim EndRow As String ' 补充变量声明，避免隐式类型
    EndRow = st.Range("J2").Value ' 明确取单元格值

    Set pdf_range = st.Range("A1:" & EndRow)

    ' 避免Activate操作，直接引用工作表对象更稳定
    row_count = WorksheetFunction.CountA(mt.Range("A1", mt.Range("A1").End(xlDown)))

    ' Master Tab save pdf according to new property address
    Dim i As Integer ' 补充循环变量声明
    For i = mt.Range("H25").Value To row_count
        Dim Filename As String
        Filename = mt.Cells(i, 5).Text

        ' 核心修改：将Master_Tab当前行D列值写入SubTo的A26单元格
        st.Range("A26").Value = mt.Cells(i, 4).Text

        ' Save PDF with associated values
        On Error Resume Next
        pdf_range.ExportAsFixedFormat xlTypePDF, LOIFilePath & Filename & ".pdf"
        On Error GoTo 0
    Next i
End Sub

关键修改点 #

• 核心逻辑补充：移除无用的SubTo_CashOffer变量，直接通过st.Range("A26").Value = mt.Cells(i, 4).Text完成值的写入，满足需求
• 代码健壮性优化：补充EndRow、i、Filename的变量声明，避免VBA隐式类型转换的潜在问题
• 稳定性提升：去掉mt.Activate操作，直接通过工作表对象引用单元格，避免激活工作表带来的异常
• 取值明确化：修改EndRow的取值方式为st.Range("J2").Value，消除歧义

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