工作表functionfunction.median问题与范围

我有一个用户窗体，将文本框input到一个filter查询：

Dim ws1 As Worksheet, ws2 As Worksheet Dim kbnumber As String Dim lastrow As Long Set ws1 = Sheets("Incident") Set ws2 = Sheets("KB Articles") lastrow = ws1.Range("A" & Rows.Count).End(xlUp).Row ws1.Range("M1:A" & lastrow).AutoFilter field:=13, Criteria1:=txtKB ws1.Range("B" & Rows.Count).End(xlUp).Offset(1).Select 

我能够过滤出查询，但我无法获得中位数。

基本上我试图得到中位数使用：

 worksheetfunction.median(columns(2)) 

但它包含了包括隐藏列在内的所有值。

我需要如何正确执行.median函数的帮助。

谢谢。

Answer 1

如果您使用的是Excel 2010，则原生工作表AGGREGATE函数应该可用，

 kbnumber = Application.Aggregate(12, 5, ws1.Columns(2)) ' or, kbnumber = WorksheetFunction.Aggregate(12, 5, ws1.Columns(2)) 

请参阅文档以获取AGGREGATE的完整function列表和可用选项。