корректировка после копирования из PDF

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

корректировка после копирования из PDF (Формулы)

Dimman31

Дата: Четверг, 27.02.2014, 09:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 20% ±

Добрый день!
Информация к размышлению во вложении, суть такова: после того как я скопировал с PDF и вставил в excel, всё разместилось в одном столбце а мне нужно чтобы эта информация была размещена в шести столбцах.
Заранее благодарю!

К сообщению приложен файл: 6890694.xlsx (12.8 Kb)

Ответить

AVP

Дата: Четверг, 27.02.2014, 09:28 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

так

К сообщению приложен файл: _6890694.xlsm (17.6 Kb) · _6890694.xls (45.0 Kb)

Ответить

Dimman31

Дата: Четверг, 27.02.2014, 09:33 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 20% ±

Дата потерялась, наверное потому что она на отдельной строке

Ответить

Саня

Дата: Четверг, 27.02.2014, 09:41 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

вот так можно:
[vba]

Код

Function avFunc(sDate As String, sRest As String)
     Dim avRet(1 To 1, 1 To 6), aTmp
     aTmp = Split(sRest)

     avRet(1, 1) = CDate(sDate & " " & aTmp(0))

     Dim i As Integer
     For i = 2 To 6
         avRet(1, i) = aTmp(i - 1)
     Next i

     avFunc = avRet
End Function

[/vba]

вводим как формулу массива (Ctrl+Shift+Enter)

К сообщению приложен файл: 6890694.xlsm (18.8 Kb)

Ответить

Dimman31

Дата: Четверг, 27.02.2014, 09:53 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 20% ±

Прикольно! Спасибо Саня!
Но как это сделать? Можно коротенькую инструкцию? Дело в том что эта инфа была на 2000 страницах в PDF, в экселе она распологается на 100000 страницах.

[moder]выдели диапазон F11:K12 и протяни вниз за маркер (в нижнем правом углу) до тех строк, как тебе надо[/moder]

Ответить

Hugo

Дата: Четверг, 27.02.2014, 10:36 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3741

Репутация: 796 ±

Замечаний: 0% ±

365

100000 страниц? На каждой миллион строк?
Думаю быстрее макросом:

[vba]

Код

Sub tt()
     Dim a(), i&, ii&, arr, x&
     a = [b9:g40].Value
     For i = 1 To UBound(a) Step 2
         ii = ii + 1: a(ii, 1) = a(i, 1)
         arr = Split(a(i + 1, 1))
         a(ii, 1) = CDate(a(ii, 1) & " " & arr(0))
         For x = 1 To 5: a(ii, x + 1) = arr(x): Next
     Next
     [f10].Resize(ii, 6) = a
End Sub

[/vba]
Только конечно по месту загнать его в цикл по листам/диапазонам.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

корректировка после копирования из PDF (Формулы)

Страница 1 из 1
1