在Excel里,同时按Atl和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub test()Dim N As IntegerFor N = 1 To 20Range("E1") = NActiveSheet.PrintOutNext NEnd Sub将E1替换为你的指定单元格,将20替换为你的几份。然后直接在此界面按F5运行此宏,OK。注意默认打印机已设置好。
要用VBA的,而且上限是多少?