//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