перенос данных!!! SOS начальник готов УБИТЬ(((

[Exo]

Народ, такая тема (очень срочно!!!)

есть некий массив данных:

артикул 1 неделя 2 неделя 3 неделя ... 53 неделя

394006 10 5 11

нужно, что бы в другой лист перенеслось следующее:

артикул 1 неделя 2 неделя ... 53 неделя

394006 10 5 11

еще раз задача:
Есть массив данных

1вый столбец – артикул
2ой и последующие (всего 53 по кол-ву недель в году) – некие данные

Нужно что бы в новый лист перенеслись данные ТОЛЬКО не ПУСТЫХ ячеек.

З.Ы. пример файла в приложении http://slil.ru/25459641

мне очень надо, помогите!!!

заранее, спс!

[Stilet]

нужно, что бы в другой лист перенеслось следующее:

А что COPY-PASTE уже не модно?

[Exo]

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

А что COPY-PASTE уже не модно?

COPY-PASTE перенесет все ячейки, а мне нужны только с данными

[AlDelta]

Записать макрос?

[Exo]

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

Записать макрос?

макрос для меня сложновато, может есть какая-то функция

(у меня трененг по Ecxel только через месяц...там и макросы объяснят, а пока я не очень в них)

в принципе я могу попробовать...так что если не трудно и нет функции напишите макрос...

[SAS888]

Нужно что бы в новый лист перенеслись данные ТОЛЬКО не ПУСТЫХ ячеек.

Может быть не пустых строк? Тогда копируем лист и удаляем все пустые строки.

Sub Perenos()

    Sheets("Sheet1").Copy After:=Sheets("Sheet1")
    For i = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next

End Sub

[Exo]

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

Может быть не пустых строк? Тогда копируем лист и удаляем все пустые строки.

Sub Perenos()

    Sheets("Sheet1").Copy After:=Sheets("Sheet1")
    For i = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next

End Sub

нет именно ячеек!!!

представь строку в которой идут данные:
1 2 (пустая ячейка) 3 4 (пустая ячейка) 5 6 7
мне нужног что бы в нов. листе было:

1 2 3 4 5 6 7, т.е. БЕЗ пустых ячеек в строке

[IgorGO]

1.На листе с данными: Ctrl+A, Ctrl+c
2.На новом листе: Ctrl+V.
3.На новом листе: Ctrl+V.

макросов не надо)))
Все переносится в строгом соответствии с поставленными задачами и минимальными затратами.

п.2 - получаем копию первого листа
п.3 - переносит данные вместе с пустыми значениями, но если учесть, что копирование данных по одной ячейке с листа 1 на лист 3 даст точно такой же итоговый результат - задача выполнена.

[Exo]

вот так нужно:

[Exo]

народ, тема актуальна!