excel vba高级查找(求助高手)

发布网友发布时间：2022-04-25 23:43

共2个回答

热心网友时间：2023-10-18 12:04

Sub aa()
    On Error Resume Next
    c = [a3]
    S = [b3]
    n = [a65536].End(3).Row
    For i = n To 1 Step -1
        If Cells(i, c) <> "" Then x = WorksheetFunction.Find(Cells(i, c), S)
        If x > 0 Then Cells(i, c).Interior.Color = vbYellow: x = 0
    Next
End Sub

追问

相连的内容才填充

并弹出对话框统计找到几处





热心网友时间：2023-10-18 12:05

用VBA可以搞定

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com