Vba：如果单元格包含特定值，如何清除内容

您可以使用以下基本语法来清除 Excel 工作表中每个单元格的内容等于特定值：

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

这个特定的宏将清除A2:A11范围内每个单元格的内容，该范围等于“Mavs”。

以下示例展示了如何在实践中使用此语法。

示例：如果单元格包含特定值，则使用 VBA 清除内容

假设我们有一个 Excel 工作表，其中包含有关不同篮球运动员的信息：

假设我们要清除Team列中每个单元格中等于“Mavs”的内容。

我们可以创建以下宏来执行此操作：

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

执行此宏后， Team列中所有值为“Mavs”的单元格都将被清除：

如果您想清除“团队”列中每行中值为“Mavs”的所有单元格，则可以使用以下语法：

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

运行该宏后，我们会收到以下输出：

请注意，每行中“团队”列中包含“Mavs”的所有单元格均已被清除。

注意：您可以在此处找到 VBA 中ClearContents方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何查找最后使用的行
VBA：如何查找最后使用的列
VBA：如何显示所有工作表