Sub jiance()
'
' jiance Macro
'
Dim res As Boolean
Dim i As Integer
For Each cell In Worksheets("Sheet2").Range("e3:e139")
For Each basecell In Worksheets("sheet1").Range("t4:t77")
result = InStr(basecell, cell) > 0
If result Then
cell.Interior.ColorIndex = 3
End If
Next basecell
Next cell
For Each cell In Worksheets("Sheet2").Range("d3:e139")
For Each basecell In Worksheets("sheet1").Range("ai4:ai77")
result = InStr(basecell, cell) > 0
If result Then
cell.Interior.ColorIndex = 3
End If
Next basecell
Next cell
MsgBox "处理完毕"
End Sub
VBA 学习
最新推荐文章于 2023-12-04 12:52:38 发布