excel - If语句清除（不删除）不符合单元格A1中标准的单元格B1。下面的行相同

Question

在 A 列中有 24 个标题。B列有类似的数据。

我想要一个“Private Sub CommandButton3_Click()”来清除单元格 B1 中的文本不等于单元格 A1 的内容。表格下方的所有行都相同。

标签： excelvbaif-statement

Answer 1

您可以使用 for 每个循环来完成这项工作。

Private Sub CommandButton3_Click()

Dim range As range

Set range = Worksheets("Sheet1").range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)

For Each cell In range
    If cell.Value = cell.Offset(0, -1) Then
        cell.ClearContents
    End If
Next cell

End Sub