vba代码如下：Sub 关键字变色()Dim u As Integer, i As Integer, i0 As Integer, str As StringDim arr(1 To 1000) As StringDim art(1 To 1000) As StringFor i = 1 To 1000 Step 1arr(i) = Cells(i, 1)art(i) = Cells(i, 2)Next iRange("B1:B1000").Font.ColorIndex = 1For u = 1 To 1000 Step 1
If art(u) = "" Then Exit For
...
