Как вставить несколько значений в одну ячейку Excel и экспортировать их в формате PDF для каждой записи этой ячейки

Question

Я хочу вставить несколько значений в одну ячейку и экспортировать каждую запись в виде отдельного файла PDF. Единственное, что я сделал до тех пор, пока не узнал - это вручную ссылаться на ячейки и экспортировать их в формате pdf Это мой макрос:

 Sub SavePDF()
     Range("A8").Value = Range("A8").Value + 1
        Sheet3.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Report_" & _
            ActiveSheet.Range("A8").Value & ".pdf", _
            OpenAfterPublish:=False
    End Sub

Допустим, у меня есть диапазон: M6:M14, и я хочу ввести результаты в ячейку "M1". После запуска макроса я хочу не создавать для каждого отдельного значения (значение должно быть внутри pdf) новый pdf. Пример: для значения M6 pdf, для M7 другое и так далее, пока я не достигну M14.

Answer 1

Пожалуйста, попробуйте этот код.

Sub SavePDF()

    Dim NameRange As Range
    Dim i As Integer
    Dim PdfName As String

    Set NameRange = Range("M6:M14")

    For i = 1 To NameRange.Cells.Count
        PdfName = Trim(Range("A8").Value) & i
        With Sheet3
            .Range("M1").Value = NameRange.Cells(i).Value
            .ExportAsFixedFormat _
             Type:=xlTypePDF, _
             Filename:="C:\Users\Report_" & PdfName & ".pdf", _
             OpenAfterPublish:=False
        End With
    Next i
End Sub