Я немного наврал приведенная Deggasad процедура у меня тоже не срабатывает так как надо, правда фомрула длины строки на листе показывает 300, а в ячейке 255.
Похоже проблема в этом куске, при копировании листа в новую книгу, обрезаются все ячейки на листе, код не мой не подскажете что может вызвать такой эффект?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim CaptionWindow1 As String
Dim CaptionWindow2 As String
Dim CountSheet As Integer
CaptionWindow1 = ActiveWindow.Caption
Workbooks.Add
CaptionWindow2 = ActiveWindow.Caption
ActiveWindow.WindowState = xlMaximized
Workbooks(CaptionWindow1).Worksheets("List1").Copy Before:=Workbooks(CaptionWindow2).Worksheets( 1 )
Windows(CaptionWindow2).View = xlPageBreakPreview
Windows(CaptionWindow2).View = xlNormalView
CountSheet = Workbooks(CaptionWindow2).Worksheets.Count
Application.DisplayAlerts = False
For i = CountSheet To 2 Step - 1
Workbooks(CaptionWindow2).Worksheets(i).Delete
Next
Application.DisplayAlerts = True
Workbooks(CaptionWindow2).Worksheets( 1 ).Name = "List1"
Workbooks(CaptionWindow1).Close SaveChanges:=False
