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

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


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

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


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




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


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.

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.


  • Recently Browsing   0 members

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