Найти одинаковые данные в столбце A и вывести все строки на новый лист

@adb420 · Регистрация: 09.10.2013

Author24 — интернет-сервис помощи студентам

Есть огромный список, с повторяющими значениями(значения может быть как и 2, так и гораздо больше), н.р. это значение номер, в столбце А. необходимо найти все повторяющиеся значения по этому столбцу (А), и вывести эти строки на новый лист.
прикрепил файл, как пример, там на первом листе исходные данные, а на втором - что должно получиться.
заранее спасибо за помощь.помогите, пожалуйста написать макрос.

@Казанский · 14.10.2015, 17:22

adb420, обязательно макросом? См. решение с помощью Расширенного фильтра в файле. Результат можно получить и на другом листе.
Впрочем, если это повторяющаяся задача, то можно записать в макрос применение фильтра.

@Svsh2015 · 15.10.2015, 01:00

adb420,доброго времени суток,протестируйте макрос на листе Лист2,кнопка incert,кнопка clean очистить

Visual Basic

Sub incert1()
     Dim z1(), z2(), i&, j&, m&, i1&
      i1 = Sheets("Лист1").Range("A" & Cells.Rows.Count).End(xlUp).Row
      z1 = Sheets("Лист1").Range("A1:C" & i1).Value
      ReDim z2(1 To UBound(z1, 2))
 With CreateObject("Scripting.Dictionary"): comparemode = 1
     For i = 1 To UBound(z1, 1)
        .Item(z1(i, 1)) = .Item(z1(i, 1)) + 1
     Next
    For i = 1 To UBound(z1, 1)
         For j = 1 To UBound(z1, 2): z2(j) = z1(i, j): Next
      If .Item(z1(i, 1)) <> 1 Then
        m = m + 1: Sheets("Лист2").Range("A" & m & ":C" & m).Value = z2
      End If
    Next
 End With
End Sub

	15.10.2015, 01:00

Опции темы