質問: 10 to 103 step 3 select case cells(i, j).value case 1: activesheet.shapes("四角形1").select selection.copy cells(i + 1, j + 1).select activesheet.paste end select next next end sub sub macro2()実行します。 activesheet.shapes.range(array("四角形1")).select selection.copy range("j11:k11").select activesheet.paste end sub
回答: > macro1の方が実行しません。 まったく呼び出されないのか、あるいはどこかの行で止まるのか。 sub macro1() ~ end subまでの中、 どこかにカーソルを置いてクリックし、f8キー押して見てください。 黄色い行が表示されます。f8押せば進みます。飽きたらf5で残りを実行。 どこで止まるのか、教えてください。