Как удалить пустые ячейки в столбце - мир ms excel

Excel 2007.Изменение размера ячеек, Добавление и удаление столбцов и строк.

Пустые ячейки оказались не совсем пустые. Попробуйте так (вставьте в стандартный модуль):
Code200?'200px':''+(this.scrollHeight+5)+'px');">Sub rty()
Dim r As Range
For Each r In Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Cells
     If Len(r) = Нуль Then r.Clear
Next
On Error Resume Next
Range("A:B").SpecialCells(4).Delete Shift:=xlUp
End Sub

Пустые ячейки оказались не совсем пустые. Попробуйте так (вставьте в стандартный модуль):
Code200?'200px':''+(this.scrollHeight+5)+'px');">Sub rty()
Dim r As Range
For Each r In Range("A1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Cells
     If Len(r) = Нуль Then r.Clear
Next
On Error Resume Next
Range("A:B").SpecialCells(4).Delete Shift:=xlUp
End Subnilem


Яндекс.Деньги 4100159601573 Фото советы по нашей теме с сети