Добрый день, Всем !! Задача следующего рода есть база данных в ней есть 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
Макросом сделал, посмотрите. Запускать на чистом листе
[vba]
Код
Public Sub fff() Counter = 0 For Each R In ThisWorkbook.Worksheets("База").Range("M2:AI339") Found = False For i = 1 To 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 Exit For End If Next i If Not Found Then Counter = Counter + 1 ActiveSheet.Cells(Counter, 1) = R.Cells(1, 1).Value ActiveSheet.Cells(Counter, 2) = 1 End If Next R End Sub
[/vba]
Макросом сделал, посмотрите. Запускать на чистом листе
[vba]
Код
Public Sub fff() Counter = 0 For Each R In ThisWorkbook.Worksheets("База").Range("M2:AI339") Found = False For i = 1 To 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 Exit For End If Next i If Not Found Then Counter = Counter + 1 ActiveSheet.Cells(Counter, 1) = R.Cells(1, 1).Value ActiveSheet.Cells(Counter, 2) = 1 End If Next R End Sub