Excel If语句清除（不删除）单元格A1中不符合条件的单元格B1。下面的行也一样

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

---

我需要一个私有子命令Button3\u单击以清除B1单元格中文本不等于A1单元格的内容。表中的所有行都相同

---

可以为每个循环使用

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

---

你试过什么吗？在你的问题和检查平等性时，你是否可以很容易地找到答案？在做其他事情的同时进行编码并不是本论坛接受的帮助定义。Private Sub CommandButton3_单击Dim range As range Set range=WorksheetsKA failas.rangeH1:H&CellsRows.Count，如果cell.Value cell.Offset0，-1，则cell.ClearContents End如果下一个cell End将其子更改为上面的值，因为我需要删除不相等的数据，则范围内的每个单元格的1.EndxlUp.Row。非常感谢你。帮了很多忙！Dariusz-如果B列数据不等于A列数据，我是否也要清除C列中的内容？这会有很大的变化吗？不是真的，只是在cell.ClearContents下面添加这一行：cell.Offset0，1.ClearContentsPerfect。谢谢。注意安全！