Выявление совпадений в столбце в EXCEL.

[minimatar.livejournal.com]

Предположим есть длинный столбец в Экселе, каждая ячейка которого имеет определенное значение. Как выявить все совпадающие по значению ячейки?

Спасибо.

Comments

[rjevsky16.livejournal.com]

Автофильтр, не?

[minimatar.livejournal.com]

что автофильтр? поподробнее пожно? я чайник

[rjevsky16.livejournal.com]

Выделяете нужный столбец, меню Данные-Фильтр-Автофильтр появится стрелка вниз над самой верхней строкой. Собстно, кликнув на нее увидите список всех значений в столбце, выбрав любой из них-столбец отфильтруется по этому значению

[minimatar.livejournal.com]

Так нужно каждое значение проверять, а мне нужно совпадения выявить быстро.

[arsilnik.livejournal.com]

отсортировать. рядом написать условие, которое ставит 1, если ячейка в заданном столбце равна ячейке выше или ниже. Это если Вам надо узнать, какие значения вообще имеют повторы.
Если порядок значений в столбце важен - не забудьте сначала создать столбиик с порядковыми номерами, чтобы потом по нему отсортировать обратно.

[minimatar.livejournal.com]

а как условие ставить не подскажете? я не секу

[arsilnik.livejournal.com]

предположим, заданный столбец - A. создаём столбец B с такой формулой (формулу пишем в В2, и копируем вниз, В1 оставляем пустой): =ЕСЛИ(A1=A2;1;ЕСЛИ(A2=A3;1;0)).

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

[ultybc.livejournal.com]

СЧЁТЕСЛИ(A:A; "значение")

[minimatar.livejournal.com]

Т.е. необходимо каждое значение подставлять?

[ultybc.livejournal.com]

Т.е. вообще все дублирующиеся значения найти? Ну, в одно действие такое не сделаешь, как мне кажется.
Скопировать колонку в колонку два и сделать колонку три, сравнивающую каждую ячейку одной колонки с другой колонкой. Как-то так )))

[uttha.livejournal.com]

СЧЁТЕСЛИ(A:A;A1)
и протянуть вниз

[lenesyan.livejournal.com]

Sub PROVERKA()
Dim nResult As Integer
Dim iCell As Range
Dim iCellp As Range
Dim code As String
Dim codep As String
Dim i As Long
Dim j As Long
Dim i1 As Long
Dim ij As Long

Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1

For i = 1 To LastRow
For j = 1 To 1
Range(Cells(i, j), Cells(i, j)).Select
code = ActiveCell.Cells.Value
If code <> "" Then
For i1 = i To LastRow
For j1 = 1 To 1
Range(Cells(i1, j1), Cells(i1, j1)).Select
codep = ActiveCell.Cells.Value
If codep = code And (i <> i1 Or j <> j1) Then
Range(Cells(i, 3 + j), Cells(i, 3 + j)).Select
ActiveCell.FormulaR1C1 = "DUBL"
Range(Cells(i1, 3 + j), Cells(i1, 3 + j)).Select
ActiveCell.FormulaR1C1 = "DUBL"
Range(Cells(1, 11), Cells(1, 11)).Select
ActiveCell.FormulaR1C1 = "DUBL!!!"
End If
Next j1
Next i1
End If
Next j
Next i

End Sub


это макрос.
For i = 1 To LastRow - с первой строки до последней
For j = 1 To 1 - только по графе А проверка ( 1 To 2 - А и В например)
если найден дубль - в графе С в этой строке будет отмета DUBL

как-то так

[reaktivny-puz.livejournal.com]

Удалить дубликаты в столбце и посчитать количество ненулевых значений.

[unbinilium.livejournal.com]

Условное форматирование, не?

[radvi-sasha.livejournal.com]

planetaexcel.ru/tip.php?aid=184
по-моему, есть и другие варианты, но я сейчас не очень хорошо соображаю :)
посмотрите на форуме по ссылке про формулы ВПР и ПОИСКПОЗ

[radvi-sasha.livejournal.com]

ну и совсем простой вариант

выделить нужный стлолбец или несколько
Верхняя панель меню - Главная - Условное форматирование - Правила выделения ячеек - Текст содержит - в поле вводим нужное значение, рядом выбираем цвет.
Если найти надо несколько значений, то повторяем процедуру и выбираем разные цвета.