恳请大师们帮忙看下这个指定内容删除指定行的难题

qiongmei6

我想在附件w：aa列，如果aa有文字“改制职工”，则清除掉改制职工那行的w：aa行的内容，谢谢各位大神的帮忙

taller

tiger1976

Sub lll()

    Dim rng As Range
    Dim i As Integer
   
    i = Cells(Cells.Rows.Count, "aa").End(xlUp).Row
    For Each rng In Range("aa1:aa" & i)
        If rng.Value = "改制职工" Then
            rng.EntireRow.Delete
        End If
    Next
   
End Sub

qiongmei6

谢谢tiger1976师傅的回答，是我没表诉清楚，导致您理解错我的意思了，我要的是清除，不是删除，并且清除的是w：aa那几列，其他列不受影响的，能否麻烦您再次看下，再次谢谢您的回答

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.21
   
2.     r = Me.Cells(Rows.Count, "aa").End(3).Row
   
3.     For i = 2 To r
   
4.         If Me.Cells(i, "AA") = "改制职工" Then
   
5.             Me.Cells(i, "W").Resize(1, 5).ClearContents
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

心的启点

Sub qc()
Dim a%, b%
a = ActiveSheet.Cells(ActiveSheet.Rows.Count, "AA").End(xlUp).Row
    For b = 1 To a
        If Cells(b, "AA") = "改制职工" Then
            Cells(b, "W") = "": Cells(b, "AA") = ""
        End If
    Next
End Sub