带有范围的worksheetfunction.median问题

Question

我有一个userform，它将文本框输入到过滤器查询中：

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

如果您使用的是Excel2010，则本机工作表聚合函数应该可用，

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

有关骨料函数和可用选项的完整列表，请参阅文档。