Sub dy() On Error Resume Next Application.ScreenUpdating = False x = InputBox("请输入打印起始序号:", "提示") y = InputBox("请输入打印结束序号:", "提示") For i = x To y Cells(2, 24) = i ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Next i Application.ScreenUpdating = True End Sub