Excel vba的问题

戳我头像，一切都会有的。 所得取决于所付出的。

Sub 查找()
Dim rng As Range, rngT As Range, rngD As Range, rngX As Range, rngH As Range
For n = 2 To Cells(Rows.Count, "b").End(xlUp).Row
Set rngT = Range(Cells(n, "bx"), Cells(n, "cj"))
Set rngD = Range(Cells(n, "ck"), Cells(n, "cw"))
Set rngX = Range(Cells(n, "cx"), Cells(n, "dj"))
Set rngH = Range(Cells(n, "dk"), Cells(n, "dw"))
For Each rng In Range(Cells(n, "b"), Cells(n, "G"))
If Not rngT.Find(rng, lookat:=xlWhole) Is Nothing Then rngT.ClearContents
If Not rngD.Find(rng, lookat:=xlWhole) Is Nothing Then rngD.ClearContents
If Not rngX.Find(rng, lookat:=xlWhole) Is Nothing Then rngX.ClearContents
If Not rngH.Find(rng, lookat:=xlWhole) Is Nothing Then rngH.ClearContents
Next rng
Next n
End Sub

第二十五回 苏坦己请妖赴宴 第二十六回 坦己设计害比干 第二十七回 太师回兵陈十策