Код VBA для удаления диапазона ячеек в строке, если критерии условия ячейки удовлетворены

Question

Первый пост здесь, так что извиняюсь, если я ухожу на что-нибудь.Этот сайт был чрезвычайно полезен для меня, поэтому я хотел выкинуть относительно простой вопрос, который я нигде не могу найти прямого ответа.

Я пытаюсь запустить макрос очистки для удаления диапазонаячеек в строке, исходя из условия, что ячейка A4 не заполнена.Я не хочу удалять всю строку, так как в нескольких столбцах от диапазона, указанного ниже, есть отдельные данные.

Диапазон ячеек, которые я хочу удалить, относится к ячейке A4:M4, основываясь на том, что A4 являетсяпусто, так как значения в диапазоне A4: D4 являются импортированными статическими значениями, которые меняются при каждом импорте, а значения в диапазоне E4: M4 являются ячейками формульного индекса, которые отвечают на значение в ячейке A4.

Любая помощь приветствуется.Существующий код ниже:

Sub Cleaner()
  Dim rng As Range
  On Error Resume Next
  Set rng = Range("A4:M549").SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
  rng.Rows.Delete Shift:=xlShiftUp
Exit Sub

Answer 1

Ваше объяснение того, что вы хотите сделать, похоже, сильно отличается от вашего фактического (нерабочий код).Если вы просто хотите очистить диапазон A4: M4, если A4 пусто, вы можете использовать:

Sub cleaner()

    If Range("A4").Value = "" Then
        Range("A4:M4").Clear
    End If

End Sub