[[20101122130645]]　『最終行の次の行に入力項目をコピーしたい』（かぶと）　ページの最後に飛ぶ

『最終行の次の行に入力項目をコピーしたい』（かぶと）

 以下のような表を作り複数人で入力しています。

     A    B      C      D      E      F
  1 入力 入力   入力   自動   自動   自動　（←コピー元の式）
  2
  3 日付 顧客名 販売額 割引率 割引額 精算額（←見出し）
  4 入力 入力   入力   自動   自動   自動　（←入力データ）
  5 入力 入力   入力   自動   自動   自動
 　 ・
 　 ・
 　 ・
 10 入力 入力   入力   自動   自動   自動

 セルA,B,Cには入力規則やセルの書式設定を施し
 セルD,E,Fにはそれぞれ計算式が入っています。

 上の例では10行目まで入力が完了したら、A1～F1の計算式を
 コピーし11行目以降に貼り付けるにはどのようにしたら
 良いでしょうか？

 但し、セルD,E,Fは勝手に書き換えられたくないので
 セルのロック（～シートの保護）をしようと思います。

 素人なりに以下の方法を試してみました。
 １．最終行の次の行を指定するために以下のマクロを登録
 　　Range("a65536").End(xlUp).Offset(1).Select
 ２．新しいマクロの記録で以下の操作
 　　シートの保護を解除→A1～F1のセルをコピー
 　　→上記１．で作成したマクロを実行

 この時点でコピーの範囲選択が解除となり貼り付ける事ができません。
 （ちなみにこの先は、貼り付け→シートの保護　のつもりでいました）

 また、欲を言えば１度の操作で１行ずつではなく
 ５～１０行分コピーされると理想的です。

 良い方法があればお教えくださいますようお願いします。

 WindowsXP/Excel2003

 最初から当面必要となる行まで、式をいれることはできないのですか、
 Ａ～Cに入力がない場合，D11:=IF(COUNTA(A11:C11)=0,"",計算式)　　　(NB)

コメント返信：

[ 一覧(最新更新順) ]

[[20101122130645]] 『最終行の次の行に入力項目をコピーしたい』（かぶと） ページの最後に飛ぶ

[[20101122130645]]　『最終行の次の行に入力項目をコピーしたい』（かぶと）　ページの最後に飛ぶ