Подсчет количества строк с одинаковыми значениями.

[Denamik]

ЛЛЮЮДДИИ! Прошу помощи! Please, help me!
мне необходимо используя basic в excel вывести на новый лист количество строчек с одинаковыми первыми двумя ячейками.

[Denamik]

ok/
значит excel/
3 столбец - Ф.И.О. студента
2 столбец - № школы, которую окончил студент
1 столбец - город, где находится школа

список большой.
Есть люди которые учились в одной школе, и мне надо чтобы на др. странице выводился опять же город, школа и КОЛ-ВО человек окончивших эту школу. (т.е. фамилии студентов не нужны). и так к каждой школе каждого города.
надеюсь объяснился понятно

[PooH]

ну... можно примерно, вот так:

Код:

Sub xText()
    
    Dim OrigSheet As Worksheet
    Dim NewSheet As Worksheet
    
    Set OrigSheet = ActiveSheet
    Set NewSheet = Worksheets.Add
    NewSheet.Name = "Result"
    
    orig_num = 0
    For i = 1 To 10 'Cells.Rows.Count
        j = 1
        end_flag = 0
        While j <= orig_num And end_flag = 0
            If NewSheet.Cells(j, 1).Text + NewSheet.Cells(j, 2).Text = OrigSheet.Cells(i, 1).Text + OrigSheet.Cells(i, 2).Text Then
              end_flag = 1
              NewSheet.Cells(j, 3) = NewSheet.Cells(j, 3) + 1
            End If
            j = j + 1
        Wend
        If end_flag = 0 Then
            orig_num = orig_num + 1
            NewSheet.Cells(orig_num, 1) = OrigSheet.Cells(i, 1).Text
            NewSheet.Cells(orig_num, 2) = OrigSheet.Cells(i, 2).Text
            NewSheet.Cells(orig_num, 3) = 1
        End If
    Next i
End Sub

[PooH]

Ну, могу пояснить... я сам VBA не знаю... вот, покавырялся полчасика - что-то новое узнал.

[Denamik]

Спасибо огромное, все  отлично работает. принцип понял, так что следующую часть смогу сделать сам, еще раз благодарю за помощь.