excel - 当另一列具有 "Yes"时从列中删除文本

Question

我有下面的宏，当我在列中有"is"时，它会删除列 H 中的值。有没有办法将其更改为在后台运行的自动 VBA？

Sub Remove_Column_H_Values()'
' Remove_Column_H_Values Macro
'


'
 Application.Goto Reference:="R7C9"
 ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=8, Criteria1:= _
 "<>"
 Application.Goto Reference:="R7C8"
 Range("H8").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.ClearContents
 Application.Goto Reference:="R7C9"
 ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=8
 Range("I8").Select
End Sub

Answer 1

您可以使用此代码向您的工作表添加一个按钮。

Sub Remove_Column_H_Values()
Dim i As Integer
For i = 1 To 100 'depends on how long your Values go
    If Yoursheet.Cells(i, 9) = "Yes" Then
        Yoursheet.Cells(i, 8) = ""
    End If
Next
End Sub