【Excel】VBAマクロで一致するセルを探す・取得・抽出する方法（同じ値・文字列など）する方法

Sub Sagasu()
    Dim nyuuryokuchi As String
    nyuuryokuchi = InputBox("検索したい文字列を入力してください")
    Dim sagasuHani As Range
    Set sagasuHani = Sheets("Sheet1").Range("A1:A100")
    Dim ketugouCell As Range

    For Each ketugouCell In sagasuHani
        If ketugouCell.Value = nyuuryokuchi Then
            ketugouCell.Offset(0, 1).Value = "一致!!"
        End If
    Next ketugouCell
End Sub

Sub IroZuke()
    Dim hikakuCell As Range, sagasuHani As Range
    Set sagasuHani = Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row)

    For Each hikakuCell In sagasuHani
        If Not Sheets("Sheet2").Range("A:A").Find(What:=hikakuCell.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
            hikakuCell.Interior.Color = RGB(255, 255, 0) ' 黄色に色付け
        End If
    Next hikakuCell
End Sub

Sub HikouChuushutsu()
    Dim nyuuryokuchi As String
    nyuuryokuchi = InputBox("抽出したい文字列を入力してください")
    Dim hikakuCell As Range, sagasuHani As Range
    Set sagasuHani = Sheets("Sheet1").Range("A1:A100")
    Dim gyoushu As Long
    gyoushu = 1

    For Each hikakuCell In sagasuHani
        If hikakuCell.Value = nyuuryokuchi Then
            Rows(hikakuCell.Row).Copy Destination:=Sheets("Sheet2").Rows(gyoushu)
            gyoushu = gyoushu + 1
        End If
    Next hikakuCell
End Sub