質問: シートをまたいでオートフィル シート1 セルa1の「zz0010」の値をセルa2からa5まで、 更にシート2 セルb1からb3までオートフィルをして連続したデータ(zz0010からzz0018まで)を作成することはできますでしょうか? 同じシート内であれば以下のvbaでオートフィル可能でした、シート間の指定の仕方がうまく行かず悩んでいます。 もしくはもっと簡単な方法があれば教えてください。 よろしくお願いいたします。 sub テスト range("a1").autofill destination:=range("a1:a5"), _ type:=xlfillseries end sub
回答: オートフィルは原点を含む連続したエリアしか出来ないと思います。(そういう機能) しかも、なぜvbaで使う必要が有るか?判りません 原点の書式が毎回変化するので面倒とかでしょうか? 一応ユーザー定義関数を作ってみました function 連続数セット(フォーマット as string, 数 as long, エリア as range) as long dim 対象 as range for each 対象 in エリア 対象.value = format(数, フォーマット) 数 = 数 + 1 next 連続数セット = 数 end function 使い方は以下のようになります。 残念ながらシートを跨いでの処理は出来ませんので2行に分ける必要があります。 sub テスト() dim スタート数 as long スタート数 = 10 スタート数 = 連続数セット("zz0000", スタート数, sheets("sheet1").range("a1:a5")) スタート数 = 連続数セット("zz0000", スタート数, sheets("sheet2").range("b1:b3")) end sub