top of page
И свет во тьме светит, и тьма не объяла его
ПРОЕКТЫ
РАЗНОЕ ПОЛЕЗНОЕ
Удалить все пустые строки на листе в Excel
Sub DeleteAllEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = LastRow To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
Включить (выключить) автовоспроизведение
...
Hisense Vidaa установить Wink
...
Полезное
О НАС
Жадные люди захватили власть в нашем городе
О НАС
КОНТАКТЫ
bottom of page