我在 excel 中有 1000 列，每列包含 30 行資料。我想撰寫一個可以找到每列平均值的宏。我想使用Range("A31:ALL31").Value = "=AVERAGE(current column's range)" ，但我不知道如何獲取活動列的范圍。有沒有辦法做到這一點？
uj5u.com熱心網友回復：
范圍列的平均值
Sub AverageTest()
Const rgAddress As String = "A1:ALL30"
Dim ws As Worksheet: Set ws = ActiveSheet
Dim rg As Range: Set rg = ws.Range(rgAddress)
Dim arg As Range: Set arg = rg.Resize(1).Offset(rg.Rows.Count)
arg.Formula = "=AVERAGE(" & rg.Columns(1).Address(, 0) & ")"
End Sub
uj5u.com熱心網友回復：
不是 100% 確定您想要什么，但此代碼將在第 31 行從 A 列到 ALL 列（即一列）中放置一個公式，該公式從第 2 行開始平均上面的行。
Range("A31:ALL31").FormulaR1C1 = "=AVERAGE(R2C:R[-1]C)"
這是代碼將生成的公式的示例。
=AVERAGE(A$1:A30)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/429214.html