|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.03.2009, 19:45 | #1 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
перенос столбцов из одной закладки в другую
Как все понимают если бы у самого хватало знаний сделал, а так слёзно прошу вас.
Сделать нужно следующее, предположим есть два шита в одном есть данные, нужно банально предположим взять столбец А перенсти на другой шит в столбец начиная с ячейки В6 и ниже. |
12.03.2009, 05:21 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
|
12.03.2009, 06:10 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А зачем .EntireRow ?
Чем шире угол зрения, тем он тупее.
|
12.03.2009, 06:39 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Дело в том, что функция Лист1.UsedRange может возвратить диапазон [c2:e8] (в случае, если столбец А пустой), и в этом случае код
Лист1.UsedRange.Columns(1).Copy Лист2.[b6] скопирует столбец С вместо A. Использование же .EntireRow гарантирует, что будет скопирована используемая часть именно столбца A. |
12.03.2009, 08:34 | #5 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
первый вариант работает а вот второй немного гонит. третий не пробовал =)
Как говорится нужно будет, ещё немного помощи =) Предположим до переноса столбцов нам нужно будет их сравнить по признаку кто больше тот и заменяет данные,если же даные больше остаётся всё по прежнему. |
12.03.2009, 08:56 | #6 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Прикрепляете файл, и подробно описываете задание (что и куда надо скопировать, при каких условиях, и т.п.) Так будет намного быстрее. |
|
12.03.2009, 23:15 | #7 |
Форумчанин
Регистрация: 05.12.2007
Сообщений: 236
|
Что бы не создавать темы - напишу сюда.
Значит я решил себе облегчить жизнь и написать программный код, который бы сортировал данные и подсчитывал кол-во записей. Есть 40 000 строк с инфой, последний столбец каждой строки содержит дату типа 01.01.96 Мне нужно строки в которых находиться искомая дата перенести на новый вновь созданный лист Теперь вопросы: 1) как создать лист? 2) как скопировать нужную строку на другой лист зная адресс ячейки в этой строке? ну и вроде все Последний раз редактировалось Д'якон; 13.03.2009 в 00:37. |
13.03.2009, 00:36 | #8 |
Форумчанин
Регистрация: 05.12.2007
Сообщений: 236
|
как сравнить cell.Value с датой? Ругается на несовпадение типов. Пробовал через CDate, Format, DateValue все до одного места
|
13.03.2009, 04:59 | #9 | |||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Код:
Цитата:
Код:
Код:
Цитата:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 13.03.2009 в 05:30. |
|||
16.03.2009, 06:50 | #10 |
Пользователь
Регистрация: 11.03.2009
Сообщений: 14
|
как будет выглядеть код, что бы перенести рэнж полей из шита 1 в шит2 с указаний координату столбца откуда брать и координату столбца куда его вставить.
что то типо такого Worksheets("Sheet2").[a3:a1500].Copy Worksheets("Sheet1").[a4] Этот скрипт работает немного криво, т.е. когда он выполняется он по чему то копирует первый столбец два раза =( Последний раз редактировалось wildvad; 16.03.2009 в 06:57. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
из одной процедуры в другую... | Vremya-Dengy | Общие вопросы Delphi | 10 | 09.03.2009 23:51 |
перенос на другую ПК проги | sergey2501 | БД в Delphi | 1 | 26.10.2008 20:07 |
Передача данных из одной таблицы в другую, при выборе одной ячейки | MickMick | Microsoft Office Excel | 6 | 06.10.2008 13:57 |
Конвертация одной БД в другую | Старовъръ | БД в Delphi | 2 | 19.08.2008 12:26 |
Перенос данных из одной книги со многих листов в другую | gavrylyuk | Microsoft Office Excel | 34 | 20.07.2008 21:39 |