To Delete Even Rows. Sub Delete_Even() Application.ScreenUpdating = False lr = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row If ...
確定! 回上一頁