|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.11.2009, 08:56 | #1 |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
Как скопировать диапазоны которые находятся на равном растояние друг от друга...
Ребята, возник такой вопрос с VBA:
Как скопировать диапазоны в excel, которые расположенны через 6 ячеек друг от друга вниз,их должно быть штук 300 всего, или безграничное кол-во, каждый из них расположен на 6 ячеек вниз от предыдущего. Очень нужно, помогите плз, хотя бы примерно!!! Последний раз редактировалось Алексей11111; 10.11.2009 в 09:05. |
10.11.2009, 09:01 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Будет пример файла с объяснением, что и куда копировать, - поможем.
И переименуйте тему... |
10.11.2009, 09:02 | #3 |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
|
10.11.2009, 09:09 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код:
|
10.11.2009, 09:52 | #5 | |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
Цитата:
Dim i As Long: Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(xlUp).Row Rows(i).Copy Rows(i + 1) Тут копируется последняя заполненная строка в следущую пустую... А в этот раз нужно скопировать отдельно каждый диапазон из диапазонов которые находятся через равные растояния, на другой лист и в конец всех заполненных строк, начиная с пустого листа... возможно ввести номер диапазона и отдельно нужный диапазон скопировать... |
|
10.11.2009, 10:13 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуй так:
Код:
|
10.11.2009, 10:48 | #7 | |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
Цитата:
|
|
10.11.2009, 17:04 | #8 |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
Плз., подскажи ещё как скопировать такие же диапазоны на другой лист в диапазоны через 7 ячеек друг от друга, начиная с 7 строчки листа...
|
10.11.2009, 17:14 | #9 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Поизменяй значения, выделенные красным:
Код:
|
10.11.2009, 17:17 | #10 |
Пользователь
Регистрация: 19.10.2009
Сообщений: 44
|
Я это понял...Ну Спасибище огромнейший!!!))))
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с кодом | judge_arm | Microsoft Office Excel | 2 | 01.07.2009 11:48 |
Помогите с кодом | lewka-serdceed | Общие вопросы Delphi | 1 | 22.06.2009 00:25 |
Помогите с кодом | eu8cc | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 12 | 07.06.2009 01:05 |
Помогите с кодом | prostoCHEL | Общие вопросы Delphi | 4 | 02.03.2008 21:56 |