バッチ・マクロのTOPへ Excel VBAで,指定された領域をオートフィルするためのマクロ。 用途は前記事を参照。 サンプルコード Sub FillRecord() ' 前提: ' 3行1列目から横方向へカラム名が並んでいる ' 1行5列目に,作成したいデータ数が並んでいる ' 4〜5行目には差分のついたデータが入っている。いちばん左はID(開始IDは1でなくともよい) ' 1行6〜7列目に進捗状況を表示する ' 見積もり: ' 10カラム×100万レコードで2分くらい必要 ' AutoFillメソッドを使わずにFor文で書き込むと死ぬほど時間がかかる(数千倍以上) ' 終端行をget Dim columnNum As Long columnNum = Cells(1, 5).Value If Not columnNum > 3 Then MsgBox "1行5列目にデータ数を入力してく