如果同一行中的另一个单元格为空，则清除行中的单元格

Question

如果在G列中找到一个空单元格，此代码将删除整行。如果G列中的单元格为空，我需要清除A列中的单元格。

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) = ""