Excelシート上で指定領域をオートフィルするVBAマクロ - 主に言語とシステム開発に関して

バッチ・マクロの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列目にデータ数を入力してく