Разделить таблицу на три части макросом.

Guest

Гость

17.11.2010 15:37:29

Здравствуйте, уважаемые форумчане.
Я совсем не силён в VBA, а при записи макроса макрорекодером - моя задача не решается, поэтому решил попросить помощи у Вас. Поиск не дал мне ответа на мой вопрос.

Дело вот в чём. Существует таблица с постоянным количеством столбцов (4шт.), но с постоянно меняющимся количеством строк (10-150шт). Очень хотелось бы, разбивать эту таблицу макросом на три равные части и помещать их в другой лист в соответствующие столбцы (в приложенном файле значения из листа "spisok" разбить и скопировать на лист "form"). И ещё один момент, если количество строк в списке не кратно трём, то нужно, чтобы меньшая часть (остаток) помещалась в последнюю - 3-ю часть.

Извините, за запутанное описание, надеюсь файл всё объяснит.
Заранее благодарю тех, кто захочет помочь.

Прикрепленные файлы

post_175375.rar (42.43 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

17.11.2010 18:07:56

Вот весь макрос:

Sub test()
Dim ra As Range: Set ra = Range([b2], Range("b" & Rows.Count).End(IIf(Len(Range("b" & Rows.Count)), xlDown, xlUp))).Offset(-1)
rc = -Int(-ra.Rows.Count / 3) 'Debug.Print rc, ra.Rows.Count
' очистка листа ФОРМА от прежних данных
On Error Resume Next: Intersect(shf.[4:10000], shf.UsedRange).Clear

' копирование диапазонов
Range("a2").Offset(0).Resize(rc, 4).Copy shf.Cells(4, 2)
Range("a2").Offset(rc).Resize(rc, 4).Copy shf.Cells(4, 6)
Range("a2").Offset(2 * rc).Resize(ra.Rows.Count - 2 * rc, 4).Copy shf.Cells(4, 10)

shf.Activate ' активация листа ФОРМА
End Sub

Пример вашего файла с макросом - в файле: http://excelvba.ru/XL_Files/Sample__17-11-2010__20-07-14.zip
(нажмите зелёную кнопочку для запуска)

PS: данные копируются вместе с форматированием.
Итоговая строка не добавляется.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Kruzo

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

18.11.2010 11:19:39

EducatedFool, огромное спасибо за вашу помощь. Макрос отлично работает.

Но у меня остался ещё один не разрешённый вопрос, как поправить этот код, чтобы макрос не очищал все строки под шапкой и копировал туда данные, а именно вставлял необходимое количество строк с ними, оставляя тем самым строку итогов. Дело в том, что мне нужно переносить данные в некую форму, в которой под данными будет ещё дополнительная информация и если они будут удалятся получится не совсем то, что я хочу получить. Попробовал в коде изменить "Copy shf.Cells" на "Paste shf.Cells" и на "Insert shf.Cells", но так как знаний в VBA я "ноль" - фокус не удался.
Буду признателен за помощь.

Kruzo Пользователь Сообщений: 3 Регистрация: 01.01.1970	#4 19.11.2010 11:33:36 И ещё один вопрос. Как сделать (поправить макрос), чтобы данные вставлялись без форматирования? Может кто ссылочку подкинет где про это почитать? На форуме не могу найти похожих тем по моей проблеме.

Kruzo Пользователь Сообщений: 3 Регистрация: 01.01.1970	#5 19.11.2010 14:00:08 The_Prist, благодарю. С форматированием всё получилось. Макрорекодер мучаю, но пока не очень успешно, как видите. Спасибо ещё раз, буду разбираться со вставкой...

Читают тему