计算多列的中位数

在我的工作表中，名为“Sheet1”，从列A到列J，每列包含各种值（因此它们都有不同的行数）。

如何计算这些列的中位数，并将计算的中位数排在第9行，列M到V？
我知道如何将计算的中位数存储到所需的位置，但实际上不知道如何计算中位数。

我知道这可以通过使用excel中值函数来解决，但这不是我想要做的。 我有超过10 +的工作表，所以VBA将是最有效的。

Answer 1

您只需要设置M9 = MEDIAN（A2：A8），并将A2：A8设置为您想要的范围。

然后复制并粘贴到其他列M9：V9。 Excel会自动将列更改为B，C，D等，并填写您想要的信息。

编辑为VBA：

这里是一个快速和肮脏的VBAmacros应用他们所有：

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