EXCEL VBA查找内容

发布网友 发布时间：2022-04-20 02:09

我来回答

共1个回答

热心网友 时间：2023-06-21 16:30

Sub s()
    With Sheets("问3")
        n = .Cells(Rows.Count, 3).End(3).Row
        For i = 3 To 6
            t = t & .Cells(n, i)
        Next
    End With
    With Sheets("问3我要的结果")
        Set rg = .[F14:H22]
        If rg.Find(t) Is Nothing Then
            .[e7].Clear
        Else
            .[e7] = t
            .[e7].Interior.ColorIndex = 6
        End If
    End With
End Sub