• Объявления

    • Гость

      Для чего форум   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

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


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

Пожалуйста, войдите для комментирования

Вы сможете оставить комментарий после входа



Войти сейчас