Евгений может, настало время выложить пример на десяток строк? На форуме почти каждый третий пост касается определения последней строки диапазона. И может не нужно будет удалять остаток листа. Вам подскажут решение поэффективней. С уважением, Сергей.

{quote}{login=KuklP}{date=15.06.2010 08:27}{thema=}{post}Евгений может, настало время выложить пример на десяток строк? На форуме почти каждый третий пост касается определения последней строки диапазона. И может не нужно будет удалять остаток листа. Вам подскажут решение поэффективней. С уважением, Сергей.{/post}{/quote}  
Извините Сергей, не понял, что значит пример на десяток строк ? Что выложить ?

{quote}{login=KuklP}{date=15.06.2010 10:18}{thema=}{post}Вашу таблицу в урезанном варианте. "При определении последней ячейки" - есть разные способы определения таковой. Возможно Вам не все известны. Гадать,  что у Вас не так, нудно и малоперспективно. Поэтому и прошу: заголовок таблицы, несколько строк данных и подвал(это там где подписи начальников). От этого можно будет плясать. А так, все только гадают.{/post}{/quote}  
Я вообще-то имел ввиду файл сВашей таблицей в 2003 Экселе сохраненный. И не более 100 кб. размером(в соответствии с правилами форума). Еще раз с уважением, Сергей.

Хитрый и коварный Serge 007.:-)

А Серж, что по-Вашему сделал?

{quote}{login=}{date=15.06.2010 11:44}{thema=Re: Re: }{post}{quote}Я вообще-то имел ввиду файл сВашей таблицей в 2003 Экселе сохраненный. И не более 100 кб. размером(в соответствии с правилами форума). Еще раз с уважением, Сергей.{/post}{/quote}  
Урезал таблицу до 25 строк, все по прежнему, размер книги с одним листом 1,5Мб О_о  
Сжал в rar-архив - 20Кб. Скрыть неиспользуемые строки можно, но это не решает две проблемы: скроллинга и размера.{/post}{/quote}  
да у вас лист волшебный удалите его а данные вставьте на новый

У кого есть две версии? Сохраните в другой и потом обратно. Что получится - будут ли изменения?

{quote}{login=KuklP}{date=16.06.2010 01:24}{thema=}{post}Ну вот, пока я шушукался в оффсайте R Dmitry уже успел.  
Вот мой вариант("да у вас лист волшебный удалите его а данные вставьте на новый") таки да. Откуда вес, так и не понял. Скролл работает и вниз и вбок. В том числе и на тяжелом файле.{/post}{/quote}  
Прикольно, я нашел волшебный лист )  
А я уж думал че с руками или с головой уже О_о  
Заменить лист сложно, много данных и перекрестных ссылок с другими листами.  
Видимо придеться использовать вариант со скрытием областей.  
Всем спасибо за помощь )

Может еще вот это?  
Sub ReduceSize()  
 Dim lAntR As Long  
 Dim iAntK As Integer  
 Dim aR() As Single  
 Dim aK() As Single  
 Dim n As Integer  
 Dim sFil1 As String  
 Dim sFil2 As String  
 Dim sKat As String  
 Dim sArk As String  
   
 sFil1 = ActiveWorkbook.Name  
 sKat = ActiveWorkbook.Path  
 sArk = ActiveSheet.Name  
   
 lAntR = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row  
 iAntK = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column  
   
 ReDim aR(lAntR)  
 ReDim aK(iAntK)  
 For n = 1 To lAntR  
   aR(n) = Rows(n).RowHeight  
 Next n  
 For n = 1 To iAntK  
   aK(n) = Columns(n).ColumnWidth  
 Next n  
   
 Application.CutCopyMode = False  
 Range(Cells(1, 1), Cells(lAntR, iAntK)).Copy  
 Workbooks.Add  
 sFil2 = ActiveWorkbook.Name  
 ActiveSheet.Name = sArk  
 ActiveSheet.Paste  
 Application.CutCopyMode = False  
   
 For n = 1 To lAntR  
   Rows(n).RowHeight = aR(n)  
 Next n  
 For n = 1 To iAntK  
   Columns(n).ColumnWidth = aK(n)  
 Next n  
   
 Application.DisplayAlerts = False  
 Workbooks(sFil2).SaveAs sKat & "\" & "(2)" & sFil1  
 Workbooks(sFil1).Close savechanges:=True  
 Application.DisplayAlerts = True  
End Sub

{quote}{login=Евгений Шульц}{date=17.06.2010 12:37}{thema=}{post}... ни макросами ни кодом не пользуюсь{/post}{/quote}  
:-) Это одно и то же.:-)