Jump to content
СофтФорум - всё о компьютерах и не только

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


Slant-shadow
 Share

Recommended Posts

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

Link to comment
Share on other sites

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

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

 

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

0.jpg

 

P.S.

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

post-95456-0-28308700-1379049401_thumb.j

Edited by Teddy_Bear
Link to comment
Share on other sites

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...