Очистить ячейку в строке, если другая ячейка в той же строке пуста

Question

Этот код удалит всю строку, если найдет пустую ячейку в столбце G. Что мне нужно сделать, это очистить ячейку в столбце A, если ячейка в столбце G пуста.

On Error Resume Next     ' In case there are no blanks
Columns("G:G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange 'Resets UsedRange for Excel 97

Answer 1

Попробуйте это:

With Intersect(Columns("G:G"), ActiveSheet.UsedRange)
    If WorksheetFunction.CountBlank(.Cells) > 0 Then
        .SpecialCells(xlCellTypeBlanks).Offset(, -6).ClearContents
    End If
End With

Answer 2

Вроде так:

On Error Resume Next     ' In case there are no blanks
Columns("G:G").SpecialCells(xlCellTypeBlanks).Offset(, -6) = ""

Answer 3

Попробуйте вместо этого.

Columns("G:G").SpecialCells(xlCellTypeBlanks).Offset(0,-6).ClearContents