Galima.Lapo skirtuke(kur reikia naikinti tuščias eilutės ir nėra sujungtų langelių)dešiniu pelės mygtuku spaudžiame,pasirenkame_View code_.Atsidaro VBA langas,pasirenkame kairėje skirtuką_ThisWorkbook_ir dideliame lange įklijuojame šį kodą:
rašė: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 2) = "" Then Rows(iRow).Delete
Next iRow
End Sub
Uždarome VBA langą.Lape bent kuriame langelyje pele kairiu mygtuku dvigubas paspaudimas -naikinamos tuščios eilutės .Veiks bent kuriame lape,kur nėra sujungtų langelių.
P.S. Pirma kodo eilutė_Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)_ turi būti rašoma viena vientisa eilute-čia ekrane netelpa,o VBA kompiliatoriaus lange tilps.