VBA 学习

lyshensir

于 2023-04-18 18:42:21 发布

阅读量411

点赞数

文章标签：学习 windows java

本文链接：https://blog.youkuaiyun.com/shenxian1021/article/details/130228536

版权

这段VBA代码在两个工作表(Sheet1和Sheet2)的指定范围内执行搜索。它检查Sheet2的E3:E139范围内的每个单元格是否包含在Sheet1的T4:T77和AI4:AI77范围内的文本。如果找到匹配，它将Sheet2相应单元格的背景色设置为颜色索引3。最后，显示一个消息框提示处理已完成。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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