//WPS JS宏获取自动筛选后的行数
function getFilterRowCnt(shtRng)//shtRng表示筛选目标工作表范围
{
	let lngRowCnt = 0;
	for(let rngCell of shtRng.SpecialCells(xlCellTypeVisible).Areas)//获取自动筛选后的单元格行数
	{
		lngRowCnt = lngRowCnt + rngCell.Rows.Count;
	}
	return lngRowCnt;
}

测试

function CommandButton1_Click()//按键测试宏
{
	let n = getFilterRowCnt(Sheets(1).Range("A2:E20"));
	alert(n);
}

参考http://t.csdnimg.cn/wXe9R