В основном у меня есть два листа, один лист с критериями, которые будут использоваться для поиска и подсчета количества совпадений на другом листе.Критерии указаны в двух столбцах, например, в каждом столбце указан тип собаки и кошки.Два питомца в каждом ряду должны рассматриваться как пара или набор.
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