Я пытаюсь создать макрос, который позволит мне создавать гистограмму и отображать частоту, используя заданное количество интервалов. Это связано с гранулометрическим составом. Данные всегда находятся в столбце «V», но объем данных варьируется в зависимости от выборки, поэтому потребуется автоматически определять, в какой строке заканчиваются данные. Ячейки всегда одинаковы в Y9: Y48. Я хотел бы, чтобы он отображал частоту, совокупный% и взвешенную частоту, как показано в столбцах AD, AE и AF.
Мне удалось создать код для автоматизации этого процесса, но он работает только для определенного количества данных в столбце «V» и не создает диаграмму.
Спасибо за помощь.
Selection.FormulaArray = _
"=FREQUENCY(R[-1]C[-8]:R[1127]C[-8],RC[-1]:R[39]C[-1])"
Range("AD43").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
Range("AD44").Select
Range("AE3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/R[40]C[-1]"
Range("AE4").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R43C30)+R[-1]C"
Range("AE4").Select
Selection.AutoFill Destination:=Range("AE4:AE42")
Range("AE4:AE42").Select
Selection.NumberFormat = "0.00%"
Range("AF3").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/R43C30"
Range("AF3").Select
Selection.AutoFill Destination:=Range("AF3:AF42")
Range("AF3:AF42").Select
Вы можете начать с найти последнюю строку.
Понял. Спасибо.