|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
02.12.2007, 13:03 | #1 |
Пользователь
Регистрация: 16.11.2007
Сообщений: 15
|
Ячейки Ai Bi (лист1) разгруппировать в Ai (лист2)
Друзья, помогите начинающему программисту) Для облегченного понимания цикла я придумал такой пример, подскажите пожалуйста как его реализовать в макросе:
Имеются два столбца в лист1: A1-An и B1-Bn Мне нужно разруппировать их в один столбец A лист2 в такой последовательности: Столбец A1 лист2: A1(лист1) B1(лист1) A2(лист1) B2(лист1) A3(лист1) B3(лист1) A4(лист1) B4(лист1) A5(лист1) B5(лист1) . . . An(лист1) Bn(лист1) Заранее благодарю за пример! Последний раз редактировалось Alexander_Gr; 02.12.2007 в 13:05. |
02.12.2007, 13:36 | #2 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Точно не знаю, попробуйте так
Код:
|
02.12.2007, 18:09 | #3 |
Пользователь
Регистрация: 16.11.2007
Сообщений: 15
|
Павел все работает, только приходится завадать последнюю ячейку в столбце (A111) можно как то автоматически его определять?
И ещё, можно унифицировать, к примеру условие выполняется если ячейка не пуста? Как такое условие задается? |
02.12.2007, 18:15 | #4 |
Пользователь
Регистрация: 16.11.2007
Сообщений: 15
|
Ещё вопрос Павел, можно сделать так что бы экспортировались данные не в лист2, а например в файл test.txt ?
|
02.12.2007, 19:27 | #5 |
Форумчанин
Регистрация: 21.08.2007
Сообщений: 292
|
Очень странно, что вам приходится задавать самому ячейку А111, т.к. в коде есть строка
iLastRow = Sh1.[A65536].End(xlUp).Row т.е. ищется последняя строка на Лист1. Если это А111, то переменная iLastRow будет иметь значении 111. Пройтиде макрос пошагово с помощью клавиши F8, и посмотрите какое значение у вас принимает эта переменная. По поводу пропуска пустых ячеек и сохранения информации в текстовый файл, могу предложить такой вариант. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как разделить число и текст в одной ячейки на две ячейки. | neboskreb | Microsoft Office Excel | 2 | 15.04.2008 19:39 |
Ячейки в DBGrid | Eofol | Компоненты Delphi | 1 | 19.01.2008 13:41 |