Question

我已经搜索了一天的解决方案。我有一个我每天制定的时间表。时间表将有不同的行数，具体取决于我的忙碌程度，但列是不变的。

在大多数情况下，我只需录制一个宏即可完成所需。

问题是我需要在同一行的另一个单元格中满足条件时清除单元格的内容。具体来说，如果列H上的给定行中有字母L，则需要清除同一行中列B中单元格的内容。

我找到了类似的问题和答案，但它们都影响了静态细胞的内容。

我尝试了以下几种变体：

Sub mdlabkill()

Dim LastRow As Long

Dim x As Long

LastRow = Cells(Rows.Count, 5).End(xlUp).Row

For x = 1 To LastRow

    If Cells(x, 5).Value = L Then Range(Cells(x, 2)).ClearContent

    Next x


End Sub

Answer 1

如果我理解您的问题，您可以尝试以下代码：

Sub mdlabkill()
Dim LastRow As Long, x As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row

For x = 1 To LastRow                    'x = 1 indicates your first data is located in row 1
    If Cells(x, "H").Value = "L" Then   'Or Cells(x, 7) = "L"
        Cells(x, "B").ClearContents     'Or .Clear to delete all the formats in the cell
    End If
Next x

End Sub

尝试动态地根据另一个单元格的内容清除单元格

1 个答案: