Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.02.2008, 10:38   #1
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
Печаль перенос данных!!! SOS начальник готов УБИТЬ(((

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

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


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

394006 10 5 11

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

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

394006 10 5 11

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

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

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

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

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

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

Последний раз редактировалось Exo; 11.02.2008 в 10:47.
Exo вне форума
Старый 11.02.2008, 11:02   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
нужно, что бы в другой лист перенеслось следующее:
А что COPY-PASTE уже не модно?
I'm learning to live...
Stilet вне форума
Старый 11.02.2008, 11:25   #3
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А что COPY-PASTE уже не модно?
COPY-PASTE перенесет все ячейки, а мне нужны только с данными
Exo вне форума
Старый 11.02.2008, 11:27   #4
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Записать макрос?
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума
Старый 11.02.2008, 11:32   #5
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
По умолчанию

Цитата:
Сообщение от AlDelta Посмотреть сообщение
Записать макрос?
макрос для меня сложновато, может есть какая-то функция

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

в принципе я могу попробовать...так что если не трудно и нет функции напишите макрос...
Exo вне форума
Старый 11.02.2008, 11:37   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
Нужно что бы в новый лист перенеслись данные ТОЛЬКО не ПУСТЫХ ячеек.
Может быть не пустых строк? Тогда копируем лист и удаляем все пустые строки.
Код:
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
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 11.02.2008, 11:42   #7
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
По умолчанию

Цитата:
Сообщение от 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, т.е. БЕЗ пустых ячеек в строке
Exo вне форума
Старый 11.02.2008, 11:50   #8
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

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

п.2 - получаем копию первого листа
п.3 - переносит данные вместе с пустыми значениями, но если учесть, что копирование данных по одной ячейке с листа 1 на лист 3 даст точно такой же итоговый результат - задача выполнена.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 11.02.2008, 11:59   #9
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
По умолчанию

вот так нужно:
Изображения
Тип файла: jpg Безымянный.JPG (44.8 Кб, 200 просмотров)
Exo вне форума
Старый 11.02.2008, 12:44   #10
Exo
Форумчанин
 
Аватар для Exo
 
Регистрация: 25.09.2007
Сообщений: 102
По умолчанию

народ, тема актуальна!
Exo вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных Nesta1384 Microsoft Office Excel 4 19.01.2009 02:28
Перенос данных из ячеек gavrylyuk Microsoft Office Excel 2 05.08.2008 14:24
Перенос данных в из 1 таб. в другую... ivp88 БД в Delphi 12 11.01.2008 15:45
Сравнение и перенос данных miheus Microsoft Office Excel 1 29.11.2007 16:42
Перенос данных. Victor Microsoft Office Excel 8 01.09.2007 21:02