先ほどの質問の回答ありがとうございました。wb_moto.Worksheets(1).Range(\u0026quot;A\u0026quot; \u0026amp; i).Copywb_saki.Worksheets(1).Range(\u0026quot;C7\u0026quot;).PasteSpecial Paste:=xlPasteAllwb.Worksheets(1).PrintOut追加の質問です。wb_saki.PrintOutのキーとして、wb_moto.Worksheets(1).cells(r,2)=1の場合のみとした場合、どのような構文となるでしょうか。if文で、for r = 64 to 70if wb_moto.Worksheets(1).cells(r,2)=1 thenPrintOutend ifとしたのですが、できませんでした。