Есть фал Exel на 50 000 записей, надо его разбить на несколько страниц.

Т.е. перебираются до ходит до записи с определенным значением, и те строки которые он прошел копируют на отдельный лист.

И таких значений несколько.

Как такое лучше сделать?

(0) ADODB + ADOX

имхо проще листов надублировать и удалить лишнее

надублировать листов с 50000 записями?

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

Может кому понадобится макрос


Sub ??????2()
    
PervajaStroka = 1
PoslednjajaStroka = 6906
NachStr = 1
    
For N = PervajaStroka To PoslednjajaStroka + 1
    
   TxtZnach = Trim(Sheets("????4").Cells(N, 1).Text)
  
  
    
    If TxtZnach = "62/????" Or TxtZnach = "62/???" Or N = PoslednjajaStroka + 1 Then
    
    
    VydelitStroki = Trim(Str(NachStr)) + ":" + Trim(Str(N - 1))
    
    Sheets("????4").Select
    Rows(VydelitStroki).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    
    NachStr = N
    End If
    
Next N
    
End Sub


PervajaStroka = 1 - первая строка из образовываемых строк
PoslednjajaStroka = 6906 последняя строка из образовываемых строк

Sheets("????4")=Sheets("Лист4") - имя листа где находятся строки

TxtZnach = "62/????" Or TxtZnach = "62/???" - значения при нахождении которых копируются строки