Добрый день, Всем !! Задача следующего рода есть база данных в ней есть 23 столбца из которых надо вывести на другую страницу все повторяющиеся значения и количество повторений.
Т.Е. например 1. Autodesk AutoCAD 320 2. Autodesk Design Review 20 и т.д.
Добрый день, Всем !! Задача следующего рода есть база данных в ней есть 23 столбца из которых надо вывести на другую страницу все повторяющиеся значения и количество повторений.
Т.Е. например 1. Autodesk AutoCAD 320 2. Autodesk Design Review 20 и т.д.Volchkov
китин, У меня в примере нужно из столбцов с "М" по "AI" сформировать выборку всех повторяющихся значений в один столбец на другой странице и подсчитать количество повторений.
китин, У меня в примере нужно из столбцов с "М" по "AI" сформировать выборку всех повторяющихся значений в один столбец на другой странице и подсчитать количество повторений.Volchkov
Если задача разовая, то скопируйте нужные столбцы на другой лист, в каждом столбце удалите дубликаты (Данные -- Удалить дубликаты), затем соедините все столбцы в один перетаскиванием и ещё раз удалите дубликаты. А потом уже формулой СЧЁТЕСЛИ
Если задача разовая, то скопируйте нужные столбцы на другой лист, в каждом столбце удалите дубликаты (Данные -- Удалить дубликаты), затем соедините все столбцы в один перетаскиванием и ещё раз удалите дубликаты. А потом уже формулой СЧЁТЕСЛИPelena
sboy, Если бы мне нужно было только все повторяющиеся значения выписать, это возможно и сработало, но мне же нужно подсчитать и количество их в таблице.
sboy, Если бы мне нужно было только все повторяющиеся значения выписать, это возможно и сработало, но мне же нужно подсчитать и количество их в таблице.Volchkov
Макросом сделал, посмотрите. Запускать на чистом листе
PublicSub fff()
Counter = 0 For Each R In ThisWorkbook.Worksheets("База").Range("M2:AI339")
Found = False For i = 1To Counter If R.Cells(1, 1).Value = ActiveSheet.Cells(i, 1).Value Then
ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 2).Value + 1
Found = True ExitFor EndIf Next i IfNot Found Then
Counter = Counter + 1
ActiveSheet.Cells(Counter, 1) = R.Cells(1, 1).Value
ActiveSheet.Cells(Counter, 2) = 1 EndIf Next R EndSub
Макросом сделал, посмотрите. Запускать на чистом листе
PublicSub fff()
Counter = 0 For Each R In ThisWorkbook.Worksheets("База").Range("M2:AI339")
Found = False For i = 1To Counter If R.Cells(1, 1).Value = ActiveSheet.Cells(i, 1).Value Then
ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 2).Value + 1
Found = True ExitFor EndIf Next i IfNot Found Then
Counter = Counter + 1
ActiveSheet.Cells(Counter, 1) = R.Cells(1, 1).Value
ActiveSheet.Cells(Counter, 2) = 1 EndIf Next R EndSub