WorksheetFunction.Subtotal是直接引用excel的函数，功能和公式写法与在工作表中使用完全相同。a = WorksheetFunction.Subtotal(3, Range("a:a")) subtotal只可以判断筛选数据，但不会剔除隐藏数据，要另外用其他函数判断剔除。
10列10行
