Как скопировать таблицу данных из PDF-файла в Excel?

все это намного проще, чем указано в другом ответе.

в Acrobat / Reader выберите инструмент выбора текста и выведите таблицу в полный вид.

теперь нажмите Ctrl / Option и выберите таблицу. Вы заметите, что курсор. После завершения выбора можно скопировать и вставить в Excel.

Я хотел бы предложить вам код VBA, это перенести скопировать таблицу из PDF в Excel.

выполните ниже написанные действия.

1. скопировать таблицу из файла PDF.
2. вставить лист Excel в столбец.
3. запустите код VBA.

Проверьте снимок экрана.

Private Sub CommandButton1_Click()
Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String

    On Error Resume Next

    xTxt = ActiveWindow.RangeSelection.Address

    Set xRg = Application.InputBox("Select Data Range(only one column):", "Transpose to Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "Used range only contain one column", , "Transpose to Excel"
        Exit Sub
    End If

    Set xOutRg = Application.InputBox("Select output range(specify one cell):", "Transpose to Excel", xTxt, , , , , 8)

    If xOutRg Is Nothing Then Exit Sub

    Set xOutRg = xOutRg.Range(1)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count

    For i = 1 To xLRow Step 3
        xRg.Cells(i).Resize(3).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate

End Sub

NB: данные я использовал для тестирования кода 3 Столбец (значение красного цвета), так что С для шага цикла и изменить размер значение 3. Вы изменяете согласно вашей структуре данных.

надеюсь, это поможет вам.