计算多列的中位数
Calculate median of multiple columns
在我名为 "Sheet1" 的工作表中,从 A 列到 J 列,每一列都包含不同的值(因此它们都有不同的行数)。
如何计算这些列的中位数并将计算出的中位数放在第 9 行和第 M 到 V 列中?
我知道如何将计算出的中位数存储到所需位置,但真的不确定如何计算中位数。
我知道这可以通过使用 excel 中值函数来解决,但这不是我想要做的。我有超过 10 个工作表,所以 VBA 将是最有效的。
您只需设置 M9 =MEDIAN(A2:A8) 并将 A2:A8 设置为您想要的范围。
然后将其复制并粘贴到其他列 M9:V9。 Excel 将自动将列更改为 B、C、D 等,并填写您想要的信息。
为 VBA 编辑:
这里有一个快速而复杂的 VBA 宏来应用它们:
Sub StacvQ()
For SheetIndex = 1 To Sheets.Count
Sheets(SheetIndex).Select
Cells(9, 13).FormulaR1C1 = "=Median(R2C[-12]" & ":" & "R8C[-12])"
Cells(9, 13).Copy
Range(Cells(9, 13), Cells(9, 22)).Select
ActiveSheet.Paste
Next SheetIndex
End Sub
在我名为 "Sheet1" 的工作表中,从 A 列到 J 列,每一列都包含不同的值(因此它们都有不同的行数)。
如何计算这些列的中位数并将计算出的中位数放在第 9 行和第 M 到 V 列中?
我知道如何将计算出的中位数存储到所需位置,但真的不确定如何计算中位数。
我知道这可以通过使用 excel 中值函数来解决,但这不是我想要做的。我有超过 10 个工作表,所以 VBA 将是最有效的。
您只需设置 M9 =MEDIAN(A2:A8) 并将 A2:A8 设置为您想要的范围。
然后将其复制并粘贴到其他列 M9:V9。 Excel 将自动将列更改为 B、C、D 等,并填写您想要的信息。
为 VBA 编辑:
这里有一个快速而复杂的 VBA 宏来应用它们:
Sub StacvQ()
For SheetIndex = 1 To Sheets.Count
Sheets(SheetIndex).Select
Cells(9, 13).FormulaR1C1 = "=Median(R2C[-12]" & ":" & "R8C[-12])"
Cells(9, 13).Copy
Range(Cells(9, 13), Cells(9, 22)).Select
ActiveSheet.Paste
Next SheetIndex
End Sub