Sub ClearCells()
Dim employeeId As Range
Dim deleteIds As Variant
deleteIds = Array(14, 35, 17) ' Put your employee ids in here
For Each employeeId In Range(ActiveSheet.Range("C1"), ActiveSheet.Range("C1").End(xlDown))
If Not (IsError(Application.Match(employeeId.Value, deleteIds, 0))) Then
ActiveSheet.Range("Z" & employeeId.Row).Value = ""
End If
Next
End Sub
1 回答
虽然您可以通过过滤然后清除可见单元格来完成此操作,但迭代员工ID并检查其值更为简单 . 如果C列中的值是连续的,即使电子表格中的行数增加,这也将继续有效 .