Совмещение данных полученных с «картинки»
HoBU4OK
Дата: Суббота, 09.06.2018, 11:51 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Доброго времени суток! Появилась задача проанализировать отчет в PDF. Структура такая: на одном листе три столбца, на втором листе - один столбец (относящийся к первому). И далее также, на нечётном листе три столбца, на четном - один. С помощью ABBYY конвертирую данные в Excel. Как возможно привести данные к табличному виду? (Чтобы данные с четных и нечетных листов были рядом) К сожалению файлы Excel не имею технической возможности приложить Для структуры данных прилагаю фото PDF Файлы не прикладываются( Структуру вроде подробно описал
Доброго времени суток! Появилась задача проанализировать отчет в PDF. Структура такая: на одном листе три столбца, на втором листе - один столбец (относящийся к первому). И далее также, на нечётном листе три столбца, на четном - один. С помощью ABBYY конвертирую данные в Excel. Как возможно привести данные к табличному виду? (Чтобы данные с четных и нечетных листов были рядом) К сожалению файлы Excel не имею технической возможности приложить Для структуры данных прилагаю фото PDF Файлы не прикладываются( Структуру вроде подробно описал HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Сообщение отредактировал HoBU4OK - Суббота, 09.06.2018, 11:52
Ответить
Сообщение Доброго времени суток! Появилась задача проанализировать отчет в PDF. Структура такая: на одном листе три столбца, на втором листе - один столбец (относящийся к первому). И далее также, на нечётном листе три столбца, на четном - один. С помощью ABBYY конвертирую данные в Excel. Как возможно привести данные к табличному виду? (Чтобы данные с четных и нечетных листов были рядом) К сожалению файлы Excel не имею технической возможности приложить Для структуры данных прилагаю фото PDF Файлы не прикладываются( Структуру вроде подробно описал Автор - HoBU4OK Дата добавления - 09.06.2018 в 11:51
Manyasha
Дата: Суббота, 09.06.2018, 14:13 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
902
±
Замечаний:
0% ±
Excel 2010, 2016
HoBU4OK , без файла сложно чем-то помочь...
HoBU4OK , без файла сложно чем-то помочь...Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение HoBU4OK , без файла сложно чем-то помочь...Автор - Manyasha Дата добавления - 09.06.2018 в 14:13
HoBU4OK
Дата: Вторник, 12.06.2018, 11:27 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Доброго времени суток! На листе Пример результат конвертации ABBYY, на листе Желаемый результат - желаемый результат. Количество строк около 400 000 (12000 листов PDF, около 40 строк на листе) П.С. Возможно перенести тему в Вопросы Excel?, Вопросы VBA?
Доброго времени суток! На листе Пример результат конвертации ABBYY, на листе Желаемый результат - желаемый результат. Количество строк около 400 000 (12000 листов PDF, около 40 строк на листе) П.С. Возможно перенести тему в Вопросы Excel?, Вопросы VBA? HoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Доброго времени суток! На листе Пример результат конвертации ABBYY, на листе Желаемый результат - желаемый результат. Количество строк около 400 000 (12000 листов PDF, около 40 строк на листе) П.С. Возможно перенести тему в Вопросы Excel?, Вопросы VBA? Автор - HoBU4OK Дата добавления - 12.06.2018 в 11:27
HoBU4OK
Дата: Среда, 13.06.2018, 10:48 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Подниму тему...
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Подниму тему... Автор - HoBU4OK Дата добавления - 13.06.2018 в 10:48
Manyasha
Дата: Среда, 13.06.2018, 11:31 |
Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
902
±
Замечаний:
0% ±
Excel 2010, 2016
HoBU4OK , можно так:
Sub toTable()
Dim i&, cnt&, r&, res As Worksheet
Set res = ThisWorkbook.Sheets("Результат" )
r = 2 : i = 2
res.Cells(2 , 1 ).CurrentRegion.ClearContents
Do While (Cells(i, 1 ) <> "" )
If Cells(i, 2 ) <> "" Then
cnt = Cells(i, 3 ).End(xlDown).Row - i + 1
Cells(i, 1 ).Resize(cnt, 3 ).Copy res.Cells(r, 1 )
Cells(i + cnt, 1 ).Resize(cnt).Copy res.Cells(r, 4 )
i = i + 2 * cnt
r = r + cnt
End If
Loop
End Sub
Предполагается, что кол-во строк с 4-м столбцом (на четном листе) совпадает с кол-вом строк в столбцах на нечетном листе.
HoBU4OK , можно так:
Sub toTable()
Dim i&, cnt&, r&, res As Worksheet
Set res = ThisWorkbook.Sheets("Результат" )
r = 2 : i = 2
res.Cells(2 , 1 ).CurrentRegion.ClearContents
Do While (Cells(i, 1 ) <> "" )
If Cells(i, 2 ) <> "" Then
cnt = Cells(i, 3 ).End(xlDown).Row - i + 1
Cells(i, 1 ).Resize(cnt, 3 ).Copy res.Cells(r, 1 )
Cells(i + cnt, 1 ).Resize(cnt).Copy res.Cells(r, 4 )
i = i + 2 * cnt
r = r + cnt
End If
Loop
End Sub
Предполагается, что кол-во строк с 4-м столбцом (на четном листе) совпадает с кол-вом строк в столбцах на нечетном листе.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение HoBU4OK , можно так: [vba]
Sub toТable() Dim i &; cnt &; r &; res As Worksheet Set res = ТhisWorkbook.Sheets("Результат") r = 2: i = 2 res.Cells(2; 1).CurrentRegion.ClearContents Do While (Cells(i ; 1) <> "") If Cells(i ; 2) <> "" Then cnt = Cells(i ; 3).End(xlDown ).Row - i + 1 Cells(i ; 1).Resize(cnt ; 3).Copy res.Cells(r ; 1) Cells(i + cnt ; 1).Resize(cnt ).Copy res.Cells(r ; 4) i = i + 2 * cnt r = r + cnt End If LoopEnd Sub
[/vba] Предполагается, что кол-во строк с 4-м столбцом (на четном листе) совпадает с кол-вом строк в столбцах на нечетном листе.Автор - Manyasha Дата добавления - 13.06.2018 в 11:31
HoBU4OK
Дата: Среда, 13.06.2018, 12:13 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
Manyasha , количество строк совпадает. Спасибо, буду пробовать на оригинальном файле
Manyasha , количество строк совпадает. Спасибо, буду пробовать на оригинальном файлеHoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение Manyasha , количество строк совпадает. Спасибо, буду пробовать на оригинальном файлеАвтор - HoBU4OK Дата добавления - 13.06.2018 в 12:13
_Boroda_
Дата: Среда, 13.06.2018, 12:30 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация:
6613
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
У меня такой вариант
Sub tt()
r0_ = 2
nr_ = Cells(Rows.Count, 1 ).End(3 ).Row - r0_ + 1
With Cells(r0_, 1 ).Resize(nr_, 3 )
ar = .Value
.Clear
End With
ReDim ar1(1 To nr_ / 2 , 1 To 4 )
For i = 1 To nr_
If IsEmpty (ar(i, 2 )) Then
For j = 1 To n_
For k = 1 To 3
ar1(i - nn_ + j - 1 , k) = ar(i - n_ + j - 1 , k)
Next k
ar1(i - nn_ + j - 1 , 4 ) = ar(i + j - 1 , 1 )
Next j
i = i + n_ - 1
n_ = 0
Else
n_ = n_ + 1
nn_ = nn_ + 1
End If
Next i
Cells(r0_, 1 ).Resize(nr_ / 2 , 4 ) = ar1
End Sub
У меня такой вариант
Sub tt()
r0_ = 2
nr_ = Cells(Rows.Count, 1 ).End(3 ).Row - r0_ + 1
With Cells(r0_, 1 ).Resize(nr_, 3 )
ar = .Value
.Clear
End With
ReDim ar1(1 To nr_ / 2 , 1 To 4 )
For i = 1 To nr_
If IsEmpty (ar(i, 2 )) Then
For j = 1 To n_
For k = 1 To 3
ar1(i - nn_ + j - 1 , k) = ar(i - n_ + j - 1 , k)
Next k
ar1(i - nn_ + j - 1 , 4 ) = ar(i + j - 1 , 1 )
Next j
i = i + n_ - 1
n_ = 0
Else
n_ = n_ + 1
nn_ = nn_ + 1
End If
Next i
Cells(r0_, 1 ).Resize(nr_ / 2 , 4 ) = ar1
End Sub
_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение У меня такой вариант [vba]
Sub tt() r0 _ = 2 nr_ = Cells(Rows.Count , 1).End(3).Row - r0 _ + 1 With Cells(r0 _ , 1).Resize(nr_ , 3) ar = .Value .Clear End With ReDim ar1 (1 To nr_ / 2, 1 To 4) For i = 1 To nr_ If IsEmpty(ar(i , 2)) Then For j = 1 To n_ For k = 1 To 3 ar1 (i - nn_ + j - 1, k ) = ar(i - n_ + j - 1, k ) Next k ar1 (i - nn_ + j - 1, 4) = ar(i + j - 1, 1) Next j i = i + n_ - 1 n_ = 0 Else n_ = n_ + 1 nn_ = nn_ + 1 End If Next i Cells(r0 _ , 1).Resize(nr_ / 2, 4) = ar1 End Sub
[/vba] Автор - _Boroda_ Дата добавления - 13.06.2018 в 12:30
HoBU4OK
Дата: Четверг, 14.06.2018, 12:05 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 318
Репутация:
14
±
Замечаний:
0% ±
Excel 2010
_Boroda_ , спасибо, тоже опробую
_Boroda_ , спасибо, тоже опробуюHoBU4OK
Я думал, ты остроглазый лев, а ты слепая собака :-)
Ответить
Сообщение _Boroda_ , спасибо, тоже опробуюАвтор - HoBU4OK Дата добавления - 14.06.2018 в 12:05