Сообщество Чайников

Вопрос

Как установить наиболее часто повторяющееся значение в колонке таблицы средствами VBA for Excel и вывести его в текстовое поле TextBox?

Ответ

Dim vMod As Variant, rng As Range
Set rng = Range("A1:A200")
vMod = Application.WorksheetFunction.Mode(rng)
Me.TextBox1.Value = vMod

Проблема только в том, чтобы определить обрабатываемый диапазон. Но если под таблицей ничего нет, то сойдет и 65535 как номер последней строки, т.е. примерно так: Set rng = Range("A1:A65535")

Leshek