搜索整列并计算另一张纸中符合条件的匹配项

Question

基本上，我有两张纸，一张工作纸上的条件将用于搜索和计算另一张工作纸中有多少个匹配项。条件位于两列中，例如，每一列都有一种宠物猫和猫。每行中的两只宠物应视为一对或一组。

Unique Criteria 
Pet1    Pet2
Dog Cat
Dog Hamster
Cat Hamster
Snake   Dog
Parrot  GoldFish

我想计算有多少个学生具有彼此相邻的条件的特定组合，例如，狗和猫，有多少有狗和仓鼠，有多少有鹦鹉GoldFish。

在另一张纸上，有一个大约8列的学生列表。其中两列是它们所养的宠物。我想与这些列匹配，并计算有多少只狗和仓鼠。

到目前为止，我已经能够将第一个标准与第一个学生匹配。在这一点上，我迷失了什么是搜索整个两列并计算有多少只狗和猫的学生的最佳方法，然后显示计数数量。

对不起，如果我没有完美解释！在此先感谢！

Sub CountProgPlan()
Dim Prog As Range
Set Prog = Worksheets("Sheet2").Range("a6")
Dim Plan As Range
Set Plan = Worksheets("Sheet2").Range("b6")
Dim StudentType As String
StudentType = "F05"
If Prog = Worksheets("Sheet1").Range("E2") And Plan = Worksheets("Sheet1").Range("F2") And StudentType = Worksheets("Sheet1").Range("d2") Then
MsgBox "Postive"
Else
MsgBox "This is Negative"
End If
End Sub