Я хотел бы предложить вам код VBA, это перенесет таблицу скопированных данных из PDF в Excel.
Следуйте ниже письменным шагам.
- Скопируйте данные таблицы из файла PDF.
- Вставить в лист Excel в столбце.
- Запустите код 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
Примечание: данные, которые я использовал для проверки кода, имеют 3 столбца (RED Color Value), поэтому значение For Loop Step & Resize равно 3.Вы меняете в соответствии с вашей структурой данных.
Надеюсь, это поможет вам.