VBA获取筛选后第一行及末行的行号
msgbox Range("a11",[a65536].End(xlUp)).SpecialCells(xlVisible).Row
hh=Range("a11",[a65536].End(xlUp)).SpecialCells(xlVisible).Row
MsgBox "Last row is" &Sheet3.UsedRange.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Row
联系客服