Как удалить пустые строки в цикле VBA?

Question

[StrapusCactus]

Добрый день. Помогите удалить строки...

Как пример joxi.ru/v29WpVqI3aJDbr

У меня получилось только уйти в бесконечный цикл или ничего не происходит :(

Спасибо.

Comments

[h8nor]

Где код с циклом?

Answer 1

[Антон Федорян]

Sub ShiftUpEmptyCells()
    Dim List As Worksheet
    
    Set List = Excel.ActiveWorkbook.Worksheets("list")
    
    ' Пробегаем столбец "A" с конца и ищем первую непустую строку
    For I = Rows.Count To 1 Step -1
        If Not IsEmpty(List.Cells(I, 1)) Then
            ' Продолжаем пробегать от найденной, но уже удаляя пустые ячейки со сдвигом вверх
            For J = I To 1 Step -1
                If IsEmpty(Cells(J, 1)) Then
                    Cells(J, 1).Delete shift:=xlUp
                End If
            Next J
            Exit For
        End If
    Next I
End Sub

Comments

[StrapusCactus]

Огонь. Спасибище! А нельзя как то задать диапазон? типо от 20 строки и вверх...

[Антон Федорян]

I = Rows.Count здесь задается цикл с самой последней строчки в столбце, меняй Rows.Count на 20 и будет счастье

[StrapusCactus]

Спасибо огромное!

Answer 2

[Антон Киселёв]

https://yandex.ru/search/?text=как%20удалить%20стр...