Sub test(): m = Range("a1").End(xlUp).Row m = ActiveSheet.UsedRange.Rows.Count MsgBox m End Sub Last modification:August 24th, 2020 at 11:40 pm © 允许规范转载 Support 如果觉得我的文章对你有用,可以请我喝杯咖啡。 ×Close Appreciate the author Sweeping payments Pay by WeChat