【マクロ・VBA】配列を使用して、データをチェックする

Dim arr(4) As Integer ' 5つの整数を格納する配列を宣言
arr(0) = 1
arr(1) = 3
arr(2) = 5
arr(3) = 7
arr(4) = 9

Dim total As Integer ' 合計を格納する変数を宣言
total = 0

For i = 0 To 4 ' 配列の要素を順番に取り出し、合計を計算
    total = total + arr(i)
Next i

MsgBox "合計は" & total & "です。"

Sub 配列とシートの列の検索()
    Dim arrData() As Variant 'データを入れる配列
    Dim i As Long 'ループ用変数
    Dim cell As Range 'セル用変数
    
    'データを取得するシートと範囲を指定する
    With Worksheets("Sheet1")
        arrData = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
    End With
    
    '検索するシートと範囲を指定する
    With Worksheets("Sheet2")
        'データがあるセルを検索するループ
        For i = 1 To UBound(arrData)
            Set cell = .Columns("A").Find(arrData(i, 1), LookIn:=xlValues)
            If Not cell Is Nothing Then
                '見つかったらメッセージを表示
                MsgBox "データ " & arrData(i, 1) & " が見つかりました。"
            End If
        Next i
    End With
    
End Sub

Dim checkRange As Range
Dim cell As Range
Dim i As Long
Set checkRange = Worksheets("Sheet2").Range("A1:A10")
For Each cell In checkRange
    For i = 1 To UBound(sourceArray)
        If cell.Value = sourceArray(i) Then
            MsgBox "一致する値がありました。"
            Exit For
        End If
    Next i
Next cell

Dim targetArray() As String
ReDim targetArray(1 To 100)

Dim sourceRange As Range
Dim sourceArray() As String
Set sourceRange = Worksheets("Sheet1").Range("A1:A100")
sourceArray = Application.Transpose(sourceRange.Value)

Dim checkRange As Range
Dim cell As Range
Dim i As Long
Set checkRange = Worksheets("Sheet2").Range("A1:A10")
For Each cell In checkRange
    For i = 1 To UBound(sourceArray)
        If cell.Value = sourceArray(i) Then
            MsgBox "一致する値がありました。"
            Exit For
        End If
    Next i
Next cell

Sub 列の検索_配列()
Dim arrData() As Variant 'データを格納する配列
Dim lastRow As Long 'データが存在する最終行
Dim searchRange As Range '検索する範囲
Dim searchValue As Variant '検索する値
Dim destSheet As Worksheet '出力先のシート
Dim newRow As Long '出力先の次の空白行

With Sheets("Sheet1") 'データを取得するシートの名前を指定する
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'データが存在する最終行を取得する
    Set searchRange = .Range("A2:A" & lastRow) '検索する範囲を指定する
    arrData = searchRange.Value 'データを配列に入れる
End With

For i = LBound(arrData, 1) To UBound(arrData, 1)
    searchValue = arrData(i, 1) '検索する値を取得する
    With Sheets("Sheet2") '検索するシートの名前を指定する
        Set foundCell = .Columns("B").Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole) '検索する列と検索方法を指定する
        If Not foundCell Is Nothing Then 'データが存在する場合
            If destSheet Is Nothing Then '新しいシートを作成する
                Set destSheet = Worksheets.Add(After:=Sheets(Sheets.Count))
                destSheet.Name = "Output"
                newRow = 1
            End If
            destSheet.Cells(newRow, 1).Resize(1, UBound(arrData, 2)).Value = arrData(i, 1) 'データを出力する
            newRow = newRow + 1
        End If
    End With
Next i

If Not destSheet Is Nothing Then
    destSheet.Activate
    MsgBox "処理が完了しました。"
End If
End Sub

Sub リストの文字があるかどうかチェック()

With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With

'基_アクティブシート
Dim wb1 As Workbook
    Set wb1 = ThisWorkbook
Dim ws1 As Worksheet


    Set ws1 = wb1.ActiveSheet
Dim LastRow1 As Long
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Dim LastCol1 As Long
    LastCol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

'相手_アクティブシートの右のシート
Dim wb2 As Workbook
    Set wb2 = ThisWorkbook
Dim ws2 As Worksheet
    Set ws2 = wb2.ActiveSheet.Next
Dim LastRow2 As Long
    LastRow2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row
Dim LastCol2 As Long
    LastCol2 = ws2.Cells(2, Columns.Count).End(xlToLeft).Column
    
    
'処理(マッチング)
Dim SeachList() As String
Dim i As Long

'処理①相手シートのキーとアイテム取得
    j = 1

    '配列の要素数を指定
    ReDim Preserve SeachList(LastRow2)

    'リストの文字列を配列に格納
    For i = 2 To LastRow2
        ReDim Preserve SeachList(j)
        SeachList(j) = ws2.Cells(i, 1)
        j = j + 1
    Next i

'処理②基_アクティブシートに転記
   For i = 2 To LastRow1

        For j = 1 To UBound(SeachList)

            'リストの文字列が含まれている場合、セルの背景色を塗る
            If InStr(ws1.Cells(i, 1), SeachList(j)) > 0 Then
                ws1.Cells(i, 1).Interior.Color = 65535
            Else
                'リストの文字列が含まれていない場合、for抜ける
                If j = UBound(SeachList) Then
                    Exit For
                End If
            End If
        
        Next j
    Next i
    
'キーアイテム削除
Set myDic = Nothing
Set wb2 = Nothing
Set ws2 = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

MsgBox "完了"
End Sub