Найти и выделить Наименее распространенные события в переменном диапазоне

Question

У меня есть код, который имеет переменный диапазон со многими категориями в каждом столбце, который отображает данные. Мне нужно выделить наименее часто встречающиеся значения в процентах от общего количества ячеек.

Если в столбце 300 ячеек, ему необходимо найти значение (из многих возможных повторяющихся значений), которое встречается наименее часто. Это бонус, если код может предвидеть общее число и дает только 5% или 10% от всего столбца.

В настоящее время я пытаюсь использовать функцию в верхней ячейке, которая найдет наименее распространенное вхождение, и код просто выделит, какое значение будет вниз по ячейке по мере ее повторения (и выделите каждую из наименее общих .

трудность я имею в два раза.

1. Там может быть более чем один наименьшее общее значение, которое по-прежнему ниже 10% от общей суммы значений
2. возможность автоматизировать этот поиск так, что могут быть выполнены и выделены для всех более чем 100 столбцов с d ifferent категорий и разных значений в каждой колонке

Если вы слишком расплывчаты, не стесняйтесь задавать вопросы о том, что я собираюсь, и я буду отвечать быстро.

Вот как выглядят данные. Как вы можете видеть, объединенные заголовки для каждого столбца с различными пробелами и сперматографически помещенными данными соответствуют определенному столбцу.

Это предлагаемый код, который по-прежнему не выделяет то, что я бы хотел. У этого есть две проблемы. 1: он будет выделять ВСЕ данные в одном диапазоне, если в строке не будет отличающегося значения. 2: Он будет выделять заголовки столбцов.

Это выделенные данные, которые по-прежнему недостаточно полны.

В некоторых случаях столбец истинно не совпадают цели кода, например, в одном столбце, число 12 было отмечено вниз по колонке (67 появлений), где есть меньше мест где другие номера. (8 происходит 29 раз и не подсвечивается)

Answer 1

Я просто взломал, казалось бы, рабочий пример. Попробуйте это здесь:

Sub frequenz() 
Dim col As Range, cel As Range 
Dim letter As String 
Dim lookFor As String 
Dim frequency As Long, totalRows As Long 
Dim relFrequency As Double 
Dim ran As Range 

ran = ActiveSheet.Range("A1:ZZ65535") 
totalRows = 65535 

For Each col In ran.Columns 
    '***get column letter*** 
    letter = Split(ActiveSheet.Cells(1, col.Column).Address, "$")(1) 
    '******* 
    For Each cel In col.Cells 
     lookFor = cel.Text 
     frequency = Application.WorksheetFunction.CountIf(Range(letter & "2:" & letter & totalRows), lookFor) 
     relFrequency = frequency/totalRows 

     If relFrequency <= 0.001 Then 
      cel.Interior.Color = ColorConstants.vbYellow 
     End If 
    Next cel 

Next col 

End Sub 

Возможно, вы делали именно то, что искали.

Изменить: исправлен адрес получения.