Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Силblч

Function LastR() As Long 'Возвращает кол-во строк в шЫте 'синтаксис области копирования =Range("H3:H" & LastR())     Dim r As Range     Set r = Selection     Selection.SpecialCells(xlCellTypeLastCell).Select     LastR = Selection.Row     r.Select End Function Function DeleteEmptyRows()     'удаляет пустые строки     Dim LastRow As Long, r As Long     LastRow = ActiveSheet.UsedRange.Rows.Count     LastRow = LastRow + ActiveSheet.UsedRange.Row - 1     Application.ScreenUpdating = False     For r = LastRow To 1 Step -1         If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete     Next r End Function