VBA 在第二个sheet中查找第一个sheet中不存在的值

VBA 在第二个sheet中查找第一个sheet中不存在的值

 Sub Macro2()

'

' Macro2 Macro

' 宏由 Lizm 录制，时间: 2019/04/10

'

 

'

Dim colSvcId As Integer

Dim i As Integer

Dim j As Integer

j = 47

Dim valS As String

Dim findRes As Boolean

 

'查找service_id

For rowSvcId = 2 To 43

 

    valS = Range("C" & rowSvcId).Text

    

    If Len(valS) > 0 Then

        findRes = False

        

        ' 在sheet4中查找

        For i = 5 To 78

            If InStr(1, Sheets("Sheet4").Cells(i, 3).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        '在sheet5中查找

        For i = 4 To 22

            If InStr(1, Sheets("Sheet5").Cells(i, 3).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        

        

        If (findRes = False) Then

                Sheets("Sheet3").Range("C" & j).Value = valS

                j = j + 1

        End If

    End If

    

Next

 

 

 

 

 

 

 

'查找packageName(HU)

j = 47

For rowPkgNm = 2 To 43

    valS = Range("D" & rowPkgNm).Text

    

    If Len(valS) > 0 Then

        findRes = False

        

        ' 在sheet4中查找

        For i = 5 To 78

            If InStr(1, Sheets("Sheet4").Cells(i, 4).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        '在sheet5中查找

        For i = 4 To 22

            If InStr(1, Sheets("Sheet5").Cells(i, 4).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        

        

        If (findRes = False) Then

                Sheets("Sheet3").Range("D" & j).Value = valS

                j = j + 1

        End If

    End If

    

Next

 

 

 

 

 

'查找base_url

j = 47

For rowBaseUrl = 2 To 43

    valS = Range("F" & rowBaseUrl).Text

    

    If Len(valS) > 0 Then

        findRes = False

        

        ' 在sheet4中查找

        For i = 5 To 78

            If InStr(1, Sheets("Sheet4").Cells(i, 6).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        '在sheet5中查找

        For i = 4 To 22

            If InStr(1, Sheets("Sheet5").Cells(i, 6).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        

        

        If (findRes = False) Then

                Sheets("Sheet3").Range("F" & j).Value = valS

                j = j + 1

        End If

    End If

    

Next

 

 

 

 

 

'查找client

j = 47

For rowClient = 2 To 43

    valS = Range("G" & rowClient).Text

    

    If Len(valS) > 0 Then

        findRes = False

        

        ' 在sheet4中查找

        For i = 5 To 78

            If InStr(1, Sheets("Sheet4").Cells(i, 7).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        '在sheet5中查找

        For i = 4 To 22

            If InStr(1, Sheets("Sheet5").Cells(i, 7).Text, valS, 1) > 0 Then

                findRes = True

                Exit For

            End If

        Next

        

        

        If (findRes = False) Then

                Sheets("Sheet3").Range("G" & j).Value = rowClient

                j = j + 1

        End If

    End If

    

Next

 

End Sub