Разделить таблицу

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Разделить таблицу (Формулы/Formulas)

Разделить таблицу

Awert

Дата: Суббота, 05.07.2014, 15:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Есть таблица-база данных.
500 000 позиций.
Можно ли каким то образом каждый 7000 позиций сделать пустую строку?
И было бы не плохо как то потом эти группы по 7000 позиций переместить на разные страницы, если это возможно.
Увы скинуть сюда не могу таблицу - так как там важная база данных. Надеюсь что то поможет.

Ответить

gling

Дата: Суббота, 05.07.2014, 15:56 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2640

Репутация: 737 ±

Замечаний: 0% ±

2010

Цитата

там важная база данных.

напишите вместо них любые значения.700 нет необходимости а 20 подойдет, через 5 или 10 сделать пустую строку. Покажите в файле что есть и что должно получиться. Про все это написано в правилах.

ЯД-41001506838083

Ответить

Awert

Дата: Суббота, 05.07.2014, 16:06 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Что есть на листе 1
Что должно получится на листе 2
Только умножьте количество ячеек на 1000

К сообщению приложен файл: 7277046.xlsx (12.2 Kb)

Ответить

Hugo

Дата: Суббота, 05.07.2014, 16:51 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Так эти пустые строки ведь не нужны - раз основная задача раскидать по листам?
Вот и нужно решать сразу основную задачу!
Просто в цикле создаём лист, берём очередной диапазон и копируем на лист.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Awert

Дата: Суббота, 05.07.2014, 17:00 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Hugo, 05.07.2014 в 16:51, в сообщении № 4

Так эти пустые строки ведь не нужны - раз основная задача раскидать по листам?

Это не основная - это дополнительная, если возможно.
Основная как раз таки сделать пустые строки.

Ответить

Hugo

Дата: Суббота, 05.07.2014, 17:03 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

А я сделал дополнительную...

[vba]

Код

Sub tt()
     Dim i&
     Application.ScreenUpdating = False
     With Sheets(1)
         For i = 0 To .[a1].CurrentRegion.Rows.Count Step 9
             .Rows(i + 1 & ":" & i + 9).Copy Worksheets.Add(After:=Sheets(Sheets.Count)).[a1]
         Next
     End With
     Application.ScreenUpdating = True
End Sub

[/vba]
Шаг меняйте по вкусу - тут 9