• Объявления

    • arv

      Для чего форум   02/07/18

      Камрады, если у вас срочный вопрос, требуется помощь и так далее, просьба писать нам в чат на сайте либо же на почту support@brobot.ru. Форум для общения между пользователями, подсказок от пользователей пользователям, мы(администрация) не занимаемся отслеживанием всех страниц форума в поисках того, кому надо помочь. Потому ожидать тут ответа именно от нас может быть неэфективно.  Мы в форум никогда не закладывали функции поддержки, только общение. Прошу понять и простить и еще раз, выше я указал каналы, по которым мы вам поможем.
утка_в_тапках

Excel/GoogleSpreadsheet - работа со списком аккаунтов

4 сообщения в этой теме

Ребят, подскажите как в Таблицах Гугла или Excel разделить большой список на несколько?

Например у меня в столбце "А" 120.000 строк и я хочу разделить их на несколько таблиц или листов по 20.000 строк. Это возможно сделать автоматически?

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
1 час назад, Qwaros сказал:

Это для тхт. Думаю Разберешся?

разбить по 100.vbs

Не разобрался) Да и по 100 разбивать - слишком мелко. Так то есть вроде сторонние сервисы для этих целей, но вопрос стоит именно в функционале Гугл Таблиц или Экселя.

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
46 минут назад, Victor Slate сказал:

Не разобрался) Да и по 100 разбивать - слишком мелко. Так то есть вроде сторонние сервисы для этих целей, но вопрос стоит именно в функционале Гугл Таблиц или Экселя.

По листам не бил, вот макрос по файлам резать

Цитата

Option Explicit

Sub Scorpion86rus()
Dim bytesLeft&, partSize&, b() As Byte, x, f%, g%, cnt&
x = Application.GetOpenFilename("All files,*.*")
If x = "False" Then Exit Sub
partSize = InputBox("Введите размер части (байт)", , 5000)
f = FreeFile
Open x For Binary Access Read As f
bytesLeft = LOF(f)
ReDim b(1 To partSize)
Do
  If UBound(b) > bytesLeft Then ReDim b(1 To bytesLeft)
  bytesLeft = bytesLeft - UBound(b)
  Get f, , b
  g = FreeFile
  cnt = cnt + 1
  Open x & Format(cnt, "_000\.xls") For Binary Access Write As g
  Put g, , b
  Close g
Loop While bytesLeft
Close f
MsgBox "Записано " & cnt & " файлов", vbInformation
End Sub

 

ДелительФайлов.xls

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас