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

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

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

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

Answer 3

Как так:

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