Вывод только повторяющихся строк

[Slant-shadow]

Можете подсказать, как вывести из таблицы только повторяющиеся строки. К примеру использую два столбца фамилия и имя.
Как можно вести столбец "Фамилия" только с фамилиями, которые несколько раз используются в таблице, в общем однофамильцев.

[Teddy_Bear]

Sub SelRepeat()Rem формируем вспомогательный список частоты встречи фамилииN = 0For k = 2 To 8    surname$ = Cells(k, 2)    FindSur = 0    For j = 1 To N      Sur$ = Cells(j, 5)      Max = Val(Cells(j, 6))Rem проверяем фамилию на повтор      If surname$ = Sur$ Then        Cells(j, 6) = Max + 1        FindSur = 1      End If    Next jRem если фамилия не найдена, то удлиняем вспомогательный список    If FindSur = 0 Then        N = N + 1        Cells(N, 5) = surname$        Cells(N, 6) = 1    End IfNext kRem выбираем фамилии с частотой встречи больше 1NumRepeat = 0For j = 1 To N  Max = Cells(j, 6)  If Max > 1 Then    NumRepeat = NumRepeat + 1    Cells(NumRepeat, 8) = Cells(j, 5)  End IfNext jEnd Sub

Видимо, речь об Эксел.

 

Результат работы.

 

P.S.

Вообще-то, с подобными вопросами лучше писать в тему Заказы "Сделайте всё за меня".

Edited September 13, 2013 by Teddy_Bear

[Slant-shadow]

Видимо, речь об Эксел.

 

Нет я про SQL.

В Excel это можно сделать функцией countif

[NatM]

SQL-сервер?

[Teddy_Bear]

 

Нет я про SQL.

В Excel это можно сделать функцией countif

 

В таком случае в SQL это можно сделать функцией count()

[Slant-shadow]

В таком случае в SQL это можно сделать функцией count()

 

А пример такого запроса можете привести

[Бумер]

SELECT MAX(FAMILY) FROM TABLENAME

GROUP BY FAMILY

HAVING COUNT(1) > 1

Edited September 25, 2013 by Бумер

[Slant-shadow]

Спасибо