質問: True End Sub
回答: 要は B1:B5が 1ならば そのセルを 塗りつぶしにするということですか B1を A1に コピーするということは A1:A5も 1なら 塗りつぶしにするということですか それで あれば A1セルに 数式を利用して =A1=1 書式を塗りつぶしにし 適用先を =A1:Bとすれば コピーは 全く不要です あるいは A1セルも B1が1の時 塗りつぶすということなら A1セルに =$B1=1 書式を塗りつぶしにし 適用先を =$A$1:$B$5 とすれば B1が 1の時 A1:B1が 塗りつぶしになります。 このように 条件付書式の場合 コピーは 使わないで 適用先を 指定してやれば その範囲にオートフィルしたことと同じになります。