Public Sub 有zzb上色()

    '1.逐列比對並上色

    For i = 1 To 22

        If InStr(Cells(i, "A"), "zzb") Then

            Rows(i).Interior.Color = RGB(255, 255, 0)

        End If

    Next

End Sub

Public Sub 有zzb複製到另一個工作表()

    '1.新增工作表到最後

    Sheets.Add after:=Sheets(Sheets.Count)

    '2.逐列比對並複製

    Sheets(1).Select

    j = 1

    For i = 1 To 22

        If InStr(Cells(i, "A"), "zzb") Then

            Sheets(Sheets.Count).Cells(j, "A") = Cells(i, "A")

            j = j + 1

        End If

    Next

End Sub