Спасибо, с VBA не разобрался, но нашел способ разбить txt файл через bat-файл. Вот код, если кому нужно:

Код:

@Echo Off
SetLocal enabledelayedexpansion
Set ok=total.txt
:: Число строк в файле на выходе
Set str=3000

Set Num=%str%& Set File=0
For /F "tokens=* usebackq delims=" %%i In ("%ok%") Do (
Set /a Num+=1
If !Num! GEQ %str% (
Set Num=0
Set /a File+=1
Set nFile=0!File!
Set nFile=!nFile:~-2!
Echo %%i>ok!nFile!.txt
) Else Echo %%i>>ok!nFile!.txt
)
Pause
Exit

[Я пока смог сделать только вот так:]

Добрый день, уважаемые форумчане!

Нужно из эксель выгрузить в разные файлы txt с разбиением на части.

Есть столбец с данными, например 150 тыс. значений, а нужно, чтоб данные из этого столбца, сохранялись в файл txt по 3 тыс. значений.
Т.е. чтоб на выходе получить 50 файлов, в каждом из которых 3 строк.

Можно это сделать автоматически?

Я пока смог сделать только вот так:

Код: (vb)

Sub Макрос1()

    Range("A2:A3000").Select
    Range("A3000").Activate
    Selection.Copy
    
    Shell "NOTEPAD.EXE", vbNormalFocus
    For i = 1 To 1000: DoEvents: Next ' ждем пока приложение запустится
    Application.SendKeys "^v" ' вставка из буфера обмена в активное приложение
  
    Rows("2:3000").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("B2").Select
End Sub

 Но получившийся txt нужно сохранять вручную, а можно, чтоб автоматически создавались txt документы, например с названием 1.txt, 2.txt ... n.txt и в них автоматически происходила запись?