Копирование данных на первую пустую ячейку

[kzld]

Не могу сделать, так как очень мало знаю программирование. Прошу помочь. Условие в файле, набрано красным цветом.
Необходимо скопировать кусок данных и поместить их на первую пустую ячейку другого листа

[EducatedFool]

Может быть, одной кнопки хватит?



Диапазоны данных должны быть разделены хотя бы одной пустой строкой.
Внутри диапазона в столбце A не должно быть пустых ячеек.

[kzld]

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

Может быть, одной кнопки хватит?

Диапазоны данных должны быть разделены хотя бы одной пустой строкой.
Внутри диапазона в столбце A не должно быть пустых ячеек.

А можно ли в левом столбце, переименовать A3:H18 во что-то более осмысленное, например ОПЕРАЦИЯ-А ?

[EducatedFool]

Можно. Только откуда брать эти "осмысленные" названия диапазонов?
Счтывать из каких-то ячеек, или формировать программно:
ОПЕРАЦИЯ-А
ОПЕРАЦИЯ-Б
...
ОПЕРАЦИЯ-Ы

[kzld]

[QUOTE=EducatedFool;293984]Может быть, одной кнопки хватит?

То, что надо. Но как Вы это сделали?
Посмотрел исходный текст, нигде не нашёл условия A3:H18
Возможно я пожелаю расширить диапазоны и увеличить количество листов. Как мне это сделать, не загромождая форум.

[EducatedFool]

Посмотрел исходный текст, нигде не нашёл условия A3:H18

Неудивительно, ибо такого "условия" там нет.
Принцип работы примерно такой:

1. Ставим курсор в первую ячейку, и нажимаем Ctrl + СтрелкаВниз

   Set cell = [a1].End(xlDown)

2. Так мы попадаем на начало первого диапазона
3. Считываем адрес диапазона - равносильно нажатию Ctrl + A

   cell.CurrentRegion

4. Увеличиваем количество столбцов в диапазоне (поскольку присутствует пустой столбец)

   Intersect(cell.CurrentRegion.EntireRow, Range("A:N"))

5. Ищем начало следующего диапазона (равносильно двукратному нажатию Ctrl + СтрелкаВниз)

   Set cell = cell.End(xlDown).End(xlDown)

6. И так далее, пока мы находимся в пределах первой тысячи строк
   

   While cell.Row < 1000

Возможно я пожелаю расширить диапазоны и увеличить количество листов

Ну так расширяйте и увеличивайте. Всё должно работать.
Если что-то будет работать неправильно - обращайтесь.

[kzld]

Хотел было задать вопрос с цитированием оригинала, запутался в тэгах.
>Ставим курсор в первую ячейку, и нажимаем Ctrl + СтрелкаВниз
Да, курсор встал в начало первого диапазона.
>Set cell = [a1].End(xlDown)
А это где должно нарисоваться? Что, должен быть включен макрорекордер?
>Считываем адрес диапазона - равносильно нажатию Ctrl + A
Выделился первый диапазон (это понятно)
>cell.CurrentRegion
А здесь непонятно, где эта строчка должна появиться?
>Увеличиваем количество столбцов в диапазоне (поскольку присутствует пустой столбец)
Не критично, столбец можно забить нулями или удалить
Пока что всё. Вопросы появятся позже.

[EducatedFool]

А это где должно нарисоваться? Что, должен быть включен макрорекордер?

Ничего нарисоваться не должно.
Это я просто пытался объяснить алгоритм работы макроса на примере аналогичных действий "вручную".

Вопросы появятся позже.

Если есть Skype - звоните, объясню, как это всё работает.

[kzld]

[QUOTE=EducatedFool;294008]Ничего нарисоваться не должно.
Это я просто пытался объяснить алгоритм работы макроса на примере аналогичных действий "вручную".
Подзабыл, потому что не каждый день работаю.
Как увеличить границы диапазона от столбца A до столбца Q