Как сделать так, чтобы это останавливалось после определенного количества строк?
Я прошел курс VBA, и мой учитель объяснил, как удалять пустые строки. Я сейчас пытаюсь поставить это на место, но мой макрос не останавливается. Я думал, что я ограничил его до 200 строк.
Я упускаю что-то важное. Любые указатели высоко ценится.
Sub RemoveRows()
' Remove rows from last blank cell
Dim LastRow As Long
Dim ISEmpty As Long
'Count how many records in the list. This is done so that the Do loop has a finish point.
LastRow = Range("A200").End(xlUp).Row
'Start at the top of the list
Range("A1").Select
'Loop until the end of the list
Do While ActiveCell.Row < LastRow
'Assign number of non empty cells in the row
ISEmpty = Application.CountA(ActiveCell.EntireRow)
'If ISEmpty = 0 then delete the row, if not move down a cell into the next row
If ISEmpty = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub