Есть файл в котором 700 строк, мне нужно его разделить на файлы по 50 в каждом и что бы первая строка оставалась, это возможно в экселе?

Анонимный вопрос
  · 2,2 K
tDots.ru4,6K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · tdots.ru

Возможно, но только макросом. Подойдет, например, такой:

Sub NewFiles()
Dim Source As Range
Dim Head As Range
Dim Body As Range
Dim n As Long
Dim nWbk As Workbook
Application.ScreenUpdating = False
Set Source = Selection: Set Head = Source.Rows(1)
For n = 1 To WorksheetFunction.Ceiling((Source.Rows.Count - 1) / 50, 1)
Set Body = Source.Rows(2 + (n - 1) * 50)
Set nWbk = Workbooks.Add
Body.Resize(50).Copy nWbk.Sheets(1).Cells(2, 1)
Head.Copy nWbk.Sheets(1).Cells(1, 1)
Next n
Application.ScreenUpdating = True
End Sub

Выделяете всю таблицу вместе с шапкой и запускаете макрос. Как перенести код к себе в файл можно посмотреть в этом видео.

Комментировать ответ…
Вы знаете ответ на этот вопрос?
Поделитесь своим опытом и знаниями
Войти и ответить на вопрос
Читайте также

Как сделать в Word повтор не шапки таблицы, а только второй строки (с номерами колонок) на каждом листе?

tDots.ru4,6K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · tdots.ru

Стандартным средством настроить повтор второй строки нельзя. Word всегда начинает повторять с самой верхней. Можно разбить таблицу на две (отдельно основная шапка, а под ней - номера колонок и вся остальная таблица), установить в строке между ними самый маленький интервал (Множитель = 0,06), убрать у верхней таблицы нижнюю границу. В итоге получим 2 таблицы, которые будут выглядеть как одна. Теперь можно для второй указать повтор шапки (это и будет строка с нумерацией).

28 января 2019  · 17,0 K
Прочитать ещё 1 ответ

в чем открыть большой txt файл 16 гб? notepad++ не может

Помощь самозанятым в регистрации НПД, оплате налогов и старта бизнеса.   · samozanyatym.ru

Желательно, чтобы файо был перенесет на достаточно скоростной носитель. Насколько я помню, выборка из нескольких ШБ данных несколько лет назад занимиала не более часа, а 16 ГБ могут разве что долго отвлекаться из-за медленной памяти.

6 февраля  · 3,4 K
Прочитать ещё 3 ответа

Есть таблица на 950 строк. Как вставить пустую строку через каждые 50 строчек? Excel 2010.

tDots.ru4,6K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · tdots.ru

1) Создайте новый столбец. В первую ячейку введите формулу:

=ОСТАТ(СТРОКА(1:1);50)

Скопируйте вниз. В каждой пятидесятой строке получите 0

2) С помощью фильтра оставьте в таблице только строки с 1 в новом столбце

3) Выделите отфильтрованные данные (кроме самой первой ячейки), нажмите F5 - "Выделить" - "только видимые ячейки"

4) Кликаете правой кнопкой мыши на любой из выделенных ячеек и жмете "Вставить строку"

Затем снимаете фильтр и удаляете вспомогательный столбец

Прочитать ещё 1 ответ

Есть файл Excel с вкладками. Как разбить ее на отдельные файлы: каждая вкладка - новый файл?

tDots.ru4,6K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · tdots.ru

Sub Листы_как_файлы()
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
wsh.Copy
Next wsh
End Sub

Этот макрос разобьет книгу на отдельные файлы, вытащив каждый лист.

18 декабря 2018  · 12,3 K
Прочитать ещё 1 ответ

Как в Excel составить формулу? Срок подходит к 30.11.20, чтобы за 10 дней до 30.11. выделялась эта ячейка зеленым, а за 5 дней красным?

Удаленное обучение Excel в формате репетиторства  · maxexcel.ru/online
Отвечает
Max V

Формула условного форматирования будет =A2-СЕГОДНЯ()<10

A2 - ссылка на ячейку со сроком годности.

По аналогии создается правило условного форматирования для 5 дней.

Ещё в условном форматировании есть целый раздел по настройке дат (сегодня, завтра, на следующей неделе, в следующем месяце и т.д.)

19 ноября  · 330
Прочитать ещё 1 ответ