Question

在excel里打印，给录制的宏添加循环语句实现批量打印

Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
ActiveCell.FormulaR1C1 = "2"
Range("B2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
ActiveCell.FormulaR1C1 = "4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
ActiveCell.FormulaR1C1 = "5"
Range("B2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

。。。。从1一直到200

Answer 1

循环语句很有用的
给你一句经典的
FOR X=1 TO 10
Y=Y+1

MSGBOX Y

NEXT

追问

您能把那个语句组合到上面的语句中吗

您能把那个语句组合到上面的语句中吗

追答

SUB LDX83()
DIM X,Y
FOR X=1 TO 200
    Y=Y+1
    [B1]=Y
    ACTIVESHEET.PRINTOUT
NEXT
MSGBOX"打印完毕"
END SUB