Если пусто в A, удалите ячейки в столбцах от A до J

Question

Я изо всех сил пытаюсь адаптировать свой код, теперь я построил свой лист.

Мой код для очистки всей строки:

Sub dontdeleteallrows()

Dim a
a = [MATCH(TRUE,INDEX(ISNUMBER(A1:A10000),0),0)]
If Not IsNumeric(x) Then Exit Sub
Rows(a & ":" & Rows.Count).Delete


End Sub

Что я могу заменить Rows(a & ":" & Rows.Count).Delete чтобы удалить ячейки AA в JA?

Answer 1

Если вы хотите проверить столбец A на наличие пустых значений в ячейке и удалить всю строку, вы можете использовать следующее:

Option Explicit

Sub Delete()

    Dim LastRow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        'Find the last row
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        'Loop column A
        For i = LastRow To 1 Step -1
            'Check if cell is empty
            If .Range("A" & i).Value = "" Then
                'Delete row
                .Rows(i).EntireRow.Delete
            End If

        Next i

    End With

End Sub

Answer 2

Хотите удалить ячейки или очистить их от содержимого?

Если вы хотите удалить ячейки, другой контент может потребоваться переместить влево или вверх. Где вы хотите, чтобы go?

Вы могли бы сделать что-то вроде

Range("Aa" & a & ":Ja" & a).clear