按条件删除指定列中对应的内容

APPLE123

描述：

1、如果G列存在关键字“实习”，就删除关键字“实习”所在行B列的内容。

2、如果H列存在关键字“新聘”，就删除关键字“新聘”所在行B列的内容。

3、数据很多，约有几千行。

4、要求使用vba在模拟数据表内删除B列对应单元格的内容。

  模拟结果表，供校验结果参考。

感谢大侠的帮助！

lsc900707

1. Sub lsc()
   
2.     For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   
3.         If Cells(i, 7) Like "实习*" Or Cells(i, 8) Like "新聘*" Then
   
4.             Cells(i, 2) = ""
   
5.         End If
   
6.     Next
   
7. End Sub

复制代码

lsc900707

Sub lsc()
    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 7) Like "实习*" Or Cells(i, 8) Like "新聘*" Then
            Cells(i, 2) = ""
        End If
    Next
End Sub

xiangbaoan

Sub test()
Dim Arr, r&
Arr = Sheet1.[a1].CurrentRegion
For r = 2 To UBound(Arr)
    If Arr(r, 7) Like "实习*" Or Arr(r, 8) Like "新聘*" Then Arr(r, 2) = ""
Next
Sheet1.[a1].CurrentRegion = Arr
End Sub

APPLE123

lsc900707 发表于 2017-3-20 19:32

谢谢lsc900707的帮助

APPLE123

xiangbaoan 发表于 2017-3-20 20:06
Sub test()
Dim Arr, r&
Arr = Sheet1.[a1].CurrentRegion

谢谢xiangbaoan老师！

APPLE123

lsc900707 发表于 2017-3-20 19:33
Sub lsc()
    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 7) L ...

老师可否帮忙看一下http://club.excelhome.net/thread-1334492-1-1.html
第五点单位变化该如何编写VBA。谢谢

lsc900707

APPLE123 发表于 2017-3-20 21:37
老师可否帮忙看一下http://club.excelhome.net/thread-1334492-1-1.html
第五点单位变化该如何编写VBA。 ...

有时间看看吧，你那个工程量不小，需要时间的耶。