Как написать макрос для стандартного отклонения в столбце данных перед пустой строкой?

введите описание изображения здесь

Мне удалось выработать среднее значение, написав этот макрос

'This works out how many rows (another way) Dim AV As Long, AVC As Long AV = Range("O" & Rows.Count).End(xlUp).Row AVC = AV - 1 ' This adds up all the data starting from row 2 to before the blank row Dim LR As Long myRange = ActiveSheet.Range("O2", Range("O2").End(xlDown)) LR = WorksheetFunction.sum(myRange) 'MsgBox LR ' So finding the mean Dim mean As Long Range("P2").Select ActiveCell.FormulaR1C1 = LR / AVC Selection.Value = Format(ActiveCell, "#.00") 

который дал результат 17,84 в ячейке P2

Но когда я попытался написать то же самое, чтобы вычислить стандартное отклонение, оно вернуло значение 0. Означает ли это, что я не могу использовать подобную кодировку ниже для выполнения задания?

  ' Doing stdev on range Dim MD As Long myRange = ActiveSheet.Range("O2", Range("O2").End(xlDown)) MD = WorksheetFunction.StDev_S(myRange) MsgBox MD 

Кроме того, я не могу понять, как копировать и вставлять его и останавливаться в зависимости от того, сколько строк находится в столбце О. Очень ценю некоторую помощь, поскольку я очень новичок в написании макросов.

введите описание изображения здесь

    Измените dim MD as Long to dim MD as double .

    Interesting Posts

    Язык сценариев, который может подсчитывать количество файлов и делать простой заговор

    Экспорт данных в Excel с помощью сводной таблицы без доступа к серверу

    vba excel error "по несоответствию типа аргумента ref" при передаче ключа для функции в качестве аргумента строки

    Как я могу сравнить значения значений ячейки excel при использовании SqlBulkCopy?

    Macro excel Поддержка Hyperlink для индекса и пропуская создание гиперссылки индекса

    Excel VBA Colon

    Пропустить zip-файл с помощью VBA

    Скрипт для проверки PowerPivot и запроса пользователя на установку

    Могу ли я скопировать только одну строку / поле из набора записей в столбец Excel

    Вставка VLOOKUP в электронную таблицу с использованием VBA, но с регулируемой длиной таблицы

    Несколько Office.js Addins с `yo office`?

    Метод Диапазон объекта Глобальный не удалось

    Невозможно изменить источник данных доступа к сводной таблице – ошибка в Excel 2000 SP3?

    Excel VBA – Удаление текста через некоторое время

    VBA «Ошибка Compille: еще без if»

    Давайте будем гением компьютера.