【Excel】VBAマクロで一致したら転記・抽出（別シートや別ブック：複数条件も）する方法【セルの値が：検索：Find, Copy, Paste, Loop】

Sub SheetTransferIfMatch()
    Dim motosheet As Worksheet, atosheet As Worksheet
    Dim motogyou As Range, atogyou As Long

    Set motosheet = ThisWorkbook.Sheets("元のシート名")
    Set atosheet = ThisWorkbook.Sheets("転記先のシート名")
    atogyou = 1

    For Each motogyou In motosheet.Range("C1:C" & motosheet.Cells(motosheet.Rows.Count, 3).End(xlUp).Row)
        If motogyou.Value = "にがり" Then
            motogyou.EntireRow.Copy Destination:=atosheet.Rows(atogyou)
            atogyou = atogyou + 1
        End If
    Next motogyou
End Sub

Sub WorkbookTransferIfMatch()
    Dim motosheet As Worksheet, atosheet As Worksheet
    Dim motogyou As Range, atogyou As Long
    Dim atobook As Workbook

    Set motosheet = ThisWorkbook.Sheets("元のシート名")
    Set atobook = Workbooks.Open("転記先のブックのパス")
    Set atosheet = atobook.Sheets("転記先のシート名")
    atogyou = 1

    For Each motogyou In motosheet.Range

("D1:D" & motosheet.Cells(motosheet.Rows.Count, 4).End(xlUp).Row)
        If motogyou.Value = 10 Then
            motogyou.EntireRow.Copy Destination:=atosheet.Rows(atogyou)
            atogyou = atogyou + 1
        End If
    Next motogyou
End Sub

Sub MultipleConditionsTransfer()
    Dim motosheet As Worksheet, atosheet As Worksheet
    Dim motogyou As Range, atogyou As Long

    Set motosheet = ThisWorkbook.Sheets("元のシート名")
    Set atosheet = ThisWorkbook.Sheets("転記先のシート名")
    atogyou = 1

    For Each motogyou In motosheet.Range("B1:B" & motosheet.Cells(motosheet.Rows.Count, 2).End(xlUp).Row)
        If motogyou.Value >= 5 And motogyou.Value <= 10 And motosheet.Cells(motogyou.Row, 5).Value = "豆腐" Then
            motogyou.EntireRow.Copy Destination:=atosheet.Rows(atogyou)
            atogyou = atogyou + 1
        End If
    Next motogyou
End Sub