嘿，作为VBA新手能摸清楚基础逻辑已经超棒了！我来帮你把代码补全，完美实现你想要的功能——把Table1的每一行导出成独立PDF，用每行的「Student ID」作为文件名，还自动跳过行内的空白单元格，让导出的PDF更整洁。

完整的VBA代码 #

Sub ExportTableRowToPDF()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rw As ListRow
    Dim pdfFile As String
    Dim exportRange As Range
    Dim tempRange As Range
    Dim savePath As String
    
    ' 设置基础参数：工作表、表格、保存路径（默认当前工作簿所在文件夹）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set tbl = ws.ListObjects("Table1")
    savePath = ThisWorkbook.Path & "\" ' 如果工作簿未保存，会用系统默认文档路径
    
    ' 遍历表格的每一行
    For Each rw In tbl.ListRows
        ' 先判断当前行是否有非空内容（跳过全空的行）
        If Application.WorksheetFunction.CountA(rw.Range) > 0 Then
            ' 获取当前行的非空单元格区域（同时覆盖常量和公式结果）
            On Error Resume Next ' 防止极端情况出错，做双重保险
            Set exportRange = rw.Range.SpecialCells(xlCellTypeConstants + xlCellTypeFormulas)
            On Error GoTo 0
            
            If Not exportRange Is Nothing Then
                ' 获取最后一列的Student ID作为文件名，替换Windows非法字符
                pdfFile = Replace(rw.Range.Cells(1, tbl.ListColumns.Count).Value, "/", "-")
                pdfFile = Replace(pdfFile, "\", "-")
                pdfFile = Replace(pdfFile, ":", "-")
                pdfFile = Replace(pdfFile, "*", "-")
                pdfFile = Replace(pdfFile, "?", "-")
                pdfFile = Replace(pdfFile, """", "-")
                pdfFile = Replace(pdfFile, "<", "-")
                pdfFile = Replace(pdfFile, ">", "-")
                pdfFile = Replace(pdfFile, "|", "-")
                pdfFile = savePath & pdfFile & ".pdf"
                
                ' 准备临时区域存放非空内容（这里用A1开始的空白区域，可自行调整）
                Set tempRange = ws.Range("A1").Resize(1, exportRange.Cells.Count)
                tempRange.ClearContents ' 先清空临时区域
                
                ' 把非空单元格内容复制到临时区域
                exportRange.Copy tempRange
                
                ' 设置打印区域为临时区域
                ws.PageSetup.PrintArea = tempRange.Address
                
                ' 导出PDF
                ws.ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=pdfFile, _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False ' 导出后不自动打开，改成True可预览
                
                ' 清理临时区域，释放对象
                tempRange.ClearContents
                Set exportRange = Nothing
            End If
        End If
    Next rw
    
    MsgBox "所有行已完成PDF导出！", vbInformation
End Sub

代码关键点说明 #

• 跳过全空行：用CountA(rw.Range)判断行内是否有内容，避免导出空PDF
• 排除行内空白单元格：通过SpecialCells提取行内的常量和公式结果非空单元格，只导出有内容的部分
• 安全处理文件名：替换掉Windows文件名里的非法字符（比如/:\*?"<>|），防止导出失败
• 临时区域复用：把非空内容复制到临时区域再打印，避免原表格格式干扰PDF布局，导出后自动清空
• 自定义保存路径：如果想指定固定路径，把savePath改成你需要的路径即可，比如savePath = "C:\StudentPDFs\"

使用注意事项 #

1. 确保你的表格「Table1」的最后一列确实是「Student ID」，如果不是，调整rw.Range.Cells(1, tbl.ListColumns.Count)里的列索引
2. 如果工作簿还没保存，ThisWorkbook.Path会返回空，此时会默认用系统的「文档」文件夹作为保存路径
3. 运行代码前建议先备份工作簿，避免意外修改数据

备注：内容来源于stack exchange，提问作者MuTombo