Изявление съвпадение в столбце в EXCEL

Да предположим, че в Excel има дълга колона, всяка клетка от която има определена стойност. Как да намеря всички съвпадащи клетки?

Отговорено: 16

какво е автофилтър? в повече детайли? аз съм чайник

Изберете желаната колона, менюто Data-Filter-AutoFilter ще покаже стрелка надолу над най-горния ред. Всъщност, като щракнете върху него, ще видите списък с всички стойности в колоната, като изберете някоя от тях, колоната ще бъде филтрирана по тази стойност

Така че трябва да проверите всяка стойност и аз трябва бързо да идентифицирам съвпаденията.

вид. след това напишете условие, което задава 1, ако клетка в дадена колона е равна на клетка отгоре или отдолу. Това е, ако трябва да разберете какви стойности обикновено имат повторения. Ако редът на стойностите в колона е важен, не забравяйте първо да създадете колона с поредни номера, за да можете да я сортирате обратно по нея.

и как да задам условието не ми казвай? Не знам

да предположим, че дадената колона е A. създайте колона B със следната формула (записваме формулата в B2 и я копираме, оставяйки B1 празна): =IF(A1=A2;1;IF(A2=A3;1;0)).

Ако сортирате обратно - копирайте получените от колона B (например в колона C), щракнете върху „постави като ..“ и изберете „само стойности“). в противен случай, когато стойностите се върнат на местата им, формулите в колона B ще бъдат преизчислени отново и няма да дадат желания резултат.

Тези. необходимо ли е да се замени всяка стойност?

Тези. като цяло намирам всички дублирани стойности? Е, това не става с едно действие, както ми се струва. Копирайте колона в колона две и направете колона три, като сравнявате всяка клетка в една колона с друга колона. Нещо като това )))

COUNTIF(A:A;A1) и плъзнете надолу

Под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 <> "" След това За i1 = i Към последния ред За j1 = 1 До 1 Обхват(Клетки(i1, j1), Клетки(i1, j1)).Изберете codep = ActiveCell.Cells.Value Ако codep = код И (i <> i1 Или j <> j1) Тогава Обхват(Ce lls(i, 3 + j), Cells(i, 3 + j)). Изберете ActiveCell.FormulaR1C1 = "DUBL" Range(Cells(i1, 3 + j), Cells(i1, 3 + j)). Изберете ActiveCell.FormulaR1C1 = "DUBL" Range(Cells(1, 11), Cells(1, 11)).Изберете ActiveCell.FormulaR1C1 = "DUBL. " End If Next j1 Next i1 End If Next j Next i

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

---