把第二章表格做到EXCEL裡面去，就放在第一張表的另一個工作表裡就行，然後用VLOOKUP函式把表一導進表二需要改變的2個地方，再建個宏
輸入：
Sub列印()
DimAnswer
Answer=MsgBox("姓名，編號，“是”繼續列印，“否”退出列印",vbYesNo,"提示")
[A3]=1
IfAnswer=vbNoThen
MsgBox"退出列印",vbOKOnly+vbInformation,"提示"
ExitSub
Else
Fori=62092206070246Ton
If[A5]=n+1Then
ActiveSheet.PrintOut
[A3]=[A3]+1
EndIf
Next
EndSub
A3表示姓名，A5表示編號，n表示最後的那個編號
把第二章表格做到EXCEL裡面去，就放在第一張表的另一個工作表裡就行，然後用VLOOKUP函式把表一導進表二需要改變的2個地方，再建個宏
輸入：
Sub列印()
DimAnswer
Answer=MsgBox("姓名，編號，“是”繼續列印，“否”退出列印",vbYesNo,"提示")
[A3]=1
IfAnswer=vbNoThen
MsgBox"退出列印",vbOKOnly+vbInformation,"提示"
ExitSub
Else
Fori=62092206070246Ton
If[A5]=n+1Then
ExitSub
Else
ActiveSheet.PrintOut
[A3]=[A3]+1
EndIf
Next
EndIf
EndSub
A3表示姓名，A5表示編號，n表示最後的那個編號