Как разбить файл excel на несколько файлов по количеству строк

Разделение файла Excel на несколько частей (по кол-ву знаков)

Добрый день!
Такой вопрос
Видел разные варианты разделения (по кол-ву строк, по категориям (вписанных в отдельной колонке)
но у меня проблема в том, что нужно разделить по кол-ву знаков. Это тексты, каждый текст в своей ячейки. Длина текста разная, поэтому не могу разделить четко по кол-ву строк
Структура листа следующая
1. Номер по порядку
2. Собственно текст
3. Кол-во знаков (посчитано формулой «длина строки)

Всего строк порядка 4000

94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Разделение файла на несколько частей(макрос)
Ребят кто-нить помогите. Я уже отчаялся не знаю как сделать это "Разделить файл на несколько частей.

Разделение текстового файла на переменное количество частей и перемещение этих частей
С Вашей помощью у меня получается создать папки с плейлистами @echo off setlocal.

Разделение программы несколько частей
Здравствуйте. Есть задание посчитать длину окружности. С преподавателем мы разобрались сказали.

Разделение слова на несколько частей
Здравствуйте! Возможно, для знатоков VBA данный вопрос будет выглядеть довольно просто и забавно.

3896 / 899 / 122
Регистрация: 16.04.2009
Сообщений: 1,825

А вопрос-то где? ))
Ничего не понятно что нужно. Сгруппировать строки «короткий текст», «длинный текст»?

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

Вопрос в том, как разделить файл эксель по кол-ву знаков в определенной колонке
То есть есть колонка «контент». В каждой ячейке разное кол-во знаков
Я хотел бы автоматически разделить один файл эксель на несколько частей-файлов эксель, чтобы суммарное кол-во знаков в каждом отдельном файле было не выше определенного кол-ва (80 тысяч в моем случае)

Короче, проще объяснить что я делаю (уже сделал руками, наши руки не для скуки)
Есть такая штука — deepl — переводчик. Он принимает файлы не больше 100 000 знаков. По практике, это 80 тысяч знаков английского текста (в моем случае это вообще html-код)

А у меня есть экселевский файл, в котором есть колонка «контент». В каждой ячейке свой хтмл-код. разной длины. Поэтому автоматически нарубить, например, по 10 строк — неразумно. Каждый файл (если придерживаться лимита в 80 тысяч знаков) должен содержать разное кол-во ячеек. Иногда 15, иногда 17, иногда 20. Тексты бывают разной длины

(потом я столкнулся с тем, что конвертнуть из эксела в ворд пакетно это тоже проблема, ни одного нормально решения не нашел)

87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

Разделение проекта на несколько частей
Здравствуйте, вот попал в такую ситуацию, есть Solution, там несколько проектов, среди которых.

Разделение строки на несколько частей
Доброго времени суток! Нужен совет как быть дальше. Необходимо разделить на части данные.

Разделение диапазона ФИО в Excel VBA в несколько ячеек
Помогите сделать макрос, вот макрос в единичной разбивке ФИО, а нужно допустим большой диапазон.

Разбиение файла *.jpg на несколько частей
У меня есть изображение *.jpg. Как его можно разбить на несколько частей с помощью Delphi? Я.

Разделение файла с БД на несколько
Доброго времени суток! Знатоки подскажите у меня БД .accdb находится на информационном ресурсе и.

Программа для разделения .txt файла на несколько частей
Доброго времени суток! Вот вчера скачал словарь с комбинациями(956 mb) и вот теперь незнаю как.

Разделение содержимого текстового файла на несколько файлов
Коллеги, всех приветствую, Нужна ваша экспертная помощь Проблема такая, есть файл, имя.TXT в нем.

Разделить файл на несколько частей с помощью макроса в excel

Подскажите, пожалуйста, как программно сделать вот такую процедурку:
имеется файл Excel состоит из 4 столбцов и 20 000 строк. Необходимо макросом разбить его на части по 500 строк каждый. после разбивки должно получиться 40 файлов. Скажем, имеется файл январь-2009.хls
после разбивки нужно что бы получилось январь-2009-1.xls, январь-2009-2.xls……………….январь-2009-40.xls

SAS888
Не зависимо от количества строк, можно так:

Sub DivFile() 
Dim i As Long, s As String, ws As Worksheet 
Application.ScreenUpdating = False: Set ws = ActiveSheet 
For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 500 
Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 499).Copy [A1] 
s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls") 
ActiveWorkbook.SaveAs s: ActiveWorkbook.Close 
Next 
End Sub

Что делать, если набор данных слишком велик для сетки Excel

Если вы открыли файл с большим набором данных в Excel, например файл с разделителями (.txt) или файл с разделителями-запятыми (.csv), возможно, вы видите предупреждающее сообщение «Этот набор данных слишком велик для сетки Excel. Если вы сохраните эту книгу, вы потеряете данные, которые не были загружены.«Это означает, что набор данных превышает количество строк или столбцов, доступных в Excel, поэтому некоторые данные не были загружены.

Предупреждающее сообщение:

Важно принять дополнительные меры предосторожности, чтобы избежать потери данных:

Откройте файл в Excel для пк с помощью команды Получить данные. Если у вас есть приложение Excel для пк, вы можете использовать Power Query для загрузки полного набора данных и анализа его с помощью сводных таблиц.
Не сохраняйте файл в Excel . Если сохранить исходный файл, вы потеряете все данные, которые не были загружены. Помните, что это также неполный набор данных.
Сохранить усеченную копию . Если вам нужно сохранить файл, перейдите в раздел Файл >Сохранить копию. Затем введите другое имя, которое ясно, что это усеченная копия исходного файла.

Как открыть набор данных, превышающий ограничения сетки Excel

Использование Excel для ПК означает, что вы можете импортировать файл с помощью команды Получить данные для загрузки всех данных. Хотя данные по-прежнему не отображаются больше, чем количество строк и столбцов в Excel, полный набор данных существует, и вы можете проанализировать его без потери данных.

Откройте пустую книгу в Excel.
Перейдите на вкладку Данные >Из текста или CSV > найдите файл и выберите Импорт. В диалоговом окне предварительного просмотра выберите Загрузить в. >отчет сводной таблицы.
После загрузки используйте список полей для упорядочения полей в сводной таблице. Сводная таблица будет работать со всем набором данных для сводных данных.
Вы также можете сортировать данные в сводной таблице или фильтровать данные в сводной таблице.

Дополнительные сведения об ограничениях форматов файлов Excel

При использовании Excel важно отметить, какой формат файла вы используете. Формат файла .xls имеет ограничение в 65 536 строк на каждом листе, а формат файла .xlsx имеет ограничение в 1 048 576 строк на лист. Дополнительные сведения см. в разделе Форматы файлов, поддерживаемые вспецификациях и ограничениях Excel и Excel.

Чтобы предотвратить достижение лимита в Excel, убедитесь, что используется формат .xlsx вместо формата .xls, чтобы воспользоваться преимуществами гораздо большего ограничения. Если вы знаете, что набор данных превышает ограничение .xlsx, используйте альтернативные обходные пути, чтобы открыть и просмотреть все данные.

Совет: Убедитесь, что все данные импортированы при открытии набора данных в Excel. Вы можете проверить количество строк или столбцов в исходном файле, а затем подтвердить его соответствие в Excel. Для этого выделите всю строку или столбец и просмотрите счетчик в строке состояния в нижней части Excel.

Дробление EXCEL файла на несколько по строкам (VBA)

Имеется Файл, порядка 930000 строк, требуется его разделить на ~93 файла EXEL по 10000 строк в каждом. Ниже скрипт, но он не отрабатывает.

Sub Test() Dim currentRows As Long, sourceCol As Long, LastRow as Long Dim currentRowValue As String, sourcews As String, rows2 As Long Dim sheetName As String, Исходная As Excel.Workbook, Конечная As Excel.Workbook Set Исходная = ActiveWorkbook sourcews = ActiveSheet.Name sourceCol = 1 RowCoun = Cells(Rows.Count, sourceCol).End(xlUp).Row file2 = 1 МакросКнига ("C:\1\Moscow_Samara" & file2 & ".xls") Set Конечная = Workbooks.Open("C:\1\Moscow_Samara" & file2 & ".xls") For currentRow = 1 To RowCount rows2 = rows2 + 1 currentRowValue = Исходная.Cells(currentRow, sourceCol).Value If Not (IsEmpty(currentRowValue) or currentValue = "") Then Конечная.Worksheets(sheetName).Select LastRow = Cells(Конечная.Rows.Count, sourceCol).End(xlUp).Row If LastRow = 1 And rows2 = 1 Then LastRow = 0 Range(Конечная.Cells(LastRow + 1, 1), Конечная.Cells(LastRow + 1, 1)) _ .PasteSpecial Paste:=xlPasteValues Исходная.WorkSheets(sourcews).Activate End If If rows2 = 10000 Then Конечная.Close SaveChanges:=True file2 = file2 + 1 rows2 = 0 sheetName = "Финиш" & file2 МакросКнига ("C:\1\Moscow_Samara" & file2 & ".xls") Set Конечная = Workbooks.Open("C:\1\Moscow_Samara" & file2 & ".xls") End If Next End Sub Sub МакросКнига (FName As String) ActiveWorkbook.SaveAs FileName: = FName, FileFormat:= _ xlNormal, Password:="", ReadOnlyRecommended:= False _ , CreateBackup:=False EndSub

Отслеживать

47.8k 17 17 золотых знаков 56 56 серебряных знаков 100 100 бронзовых знаков