Создание отчета!!!

[Viento]

Добрый день!
У меня к Вам одна просьба. Кто сможет помогите в создании отчета.
Существует файл с данными "1.xls", эти данные необходимо перекинуть в файл "отчет.xls", (как показано в прикрепленных файлах). в реальности файл "1" содержит данные на 800 человек. и в ручную перекинуть их в отчет занимает очень много врмеени, и учитывая тот факт, что отчет является ежедневным, у меня крышу сносит.
Помогите кто сможет.
По возможности лучше было бы оформить эти действия через макрос.
Спасибо!
С Уважением Б.К.

[EducatedFool]

файл "1" содержит данные на 800 человек

В отчёте данные на каждого сотрудника занимают 1 столбец.
У Вас, наверное, Excel 2007, если на листе более 800 столбцов?

Всегда ли для каждого сотрудника имеется ровно 16 записей?

Записи начинаются с ячейки A2, или формат файла с данными может быть другим?

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".
Что не так?

[EducatedFool]

Или вот Вам ещё вариант.
Только этот макрос надо поместить в файл "отчёт".

И, конечно, оба файла должны быть открыты.

Sub CopyData()
    On Error Resume Next
    Application.ScreenUpdating = False

    With ThisWorkbook.Worksheets("Лист1").UsedRange.Rows(1).Offset(0, 2)
        .ClearContents: .Offset(4).Resize(16).ClearContents ' очистка от прежних данных
    End With

    Dim cell2 As Range, cell As Range
    Set cell2 = Workbooks("1.xls").Worksheets("1").[a2]
    Set cell = ThisWorkbook.Worksheets("Лист1").Cells(1, 3)

    While cell2.Value <> ""
        cell = cell2: cell2.Offset(, 2).Resize(16).Copy cell.Offset(4)
        Set cell2 = cell2.Offset(16): Set cell = cell.Next
    Wend
End Sub

2 SAS888

В Вашем варианте лучше заменить краткие имена книг полными:

Workbooks("1.xls").Sheets(1).Activate
With Workbooks("отчет.xls").Sheets(1)

А то на некоторых компах (в том числе и на моём) макрос выдаёт ошибку.

[Viento]

В отчёте данные на каждого сотрудника занимают 1 столбец. - Да

Всегда ли для каждого сотрудника имеется ровно 16 записей? - ДА

Записи начинаются с ячейки A2, или формат файла с данными может быть другим? - записи всегда будут начинаться с ячейки А2

[Viento]

Макрос работает. Но он лежит в файле "1.xls" Мне не совсем подходит, тк он всегда формируется с нуля, те его формирует программа.

Если можно было макрос написать в файле отчета, это был бы лучший вариант.

И еще одно! Макрос написан только на 3 фамилии с данными ? Как сделать его на большее число?

Огромное Спасибо, за помощь!

[valerij]

Сообщение от EducatedFool

2 SAS888
А то на некоторых компах (в том числе и на моём) макрос выдаёт ошибку.

У меня работает

[Viento]

Все работает. Скажите плз! Дело в том что у меня не эксель 2007 а 2003 , там в одну строчку могу вставить только 250 сотрудников,
как мне сделать так, чтобы остальные вставали на этом же листе.но под уже вставленными данными ?
Спасибо!

[EducatedFool]

Макрос написан только на 3 фамилии с данными ?

C чего Вы это взяли? Фамилий может быть сколько угодно.

Посмотрите вложение.

Дело в том что у меня не эксель 2007 а 2003 , там в одну строчку могу вставить только 250 сотрудников,
как мне сделать так, чтобы остальные вставали на этом же листе.но под уже вставленными данными ?

Проще установить Excel 2007.
В принципе можно сделать и несколько блоков по 250 человек.

Но проще изменить формат хранения данных в отчёте - заносить информацию по каждому сотруднику не в отдельный столбец, а в отдельную строку (как в файле 1.xls)

[Viento]

[QUOTE=EducatedFool;185234]

Огромное спасибо! Все работает как надо.

Установить др версию экселя нам ни кто не даст. Что касается заносить информацию по каждому сотруднику не в отдельный столбец тоже запрещено, тк другие службы отделов формируют свои отчеты исходя из нашего, и меня ть структуру запрещено.

А что нужно изменить в макросе или добавть 2-й макрос чтобы вставала инфа свыше 250 фамилий вниз?