エクセル2003 エクセルについて質問です。

シートの左から右へ、あ行から最後は、わ行まで10位あります。
各シートの88行から下に沢山、自動で答えが出るようにしました。
今日の質問です。
基本はあ行で、あ行のE10からAC19の範囲の各セルに、1～18位までの数字がランダムに、週毎にはいるのです。
あ行から最後の、わ行まで同じ数字(範囲)を、E10からAC19の範囲に入れるのですが、いちいちコピー貼り付けを繰り返さないで済む方法はないでしょうか？
あ行に手動で入力→あとは自動で、わ行まで同じ範囲に同じ数字が入る。
質問がわかりずらければスミマセン。

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2016/09/18 22:06

対象のシートを複数選択した状態で入力すれば出来ちゃいますよ。

複数選択する方法
全部の場合は一番左のシートを選択した状態で、一番右のシートを[Shift]キーを押しながら選択してください。
飛び飛びの場合は[Ctrl]キーを押しながら選択してください。

この回答へのお礼

GooUserラック様
いつも敏速丁寧な、ご回答ありがとうございます。
最初は手間取りましたが簡単に出来ちゃいました。
本当にありがとうございます。
今後、手間がはぶけます。
本当にいつもありがとうございます。

お礼日時：2016/09/18 22:26

No.3 回答者： tom04 回答日時： 2016/09/18 22:25

こんばんは！

VBAでの一例です。
「あ行」SheetはSheet見出しの一番左側にあり
他のSheetは2番目以降にあるという前提です。

画面左下の「あ行」Sheetの見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）
「あ行」Sheetにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim k As Long
If Intersect(Target, Range("E10:AC19")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
For k = 2 To Worksheets.Count
Worksheets(k).Cells(.Row, .Column) = .Value
Next k
End With
End Sub 'この行まで//

※　Sheet見出しの2番目以降すべてのSheetを対象としています。
もし手を付けたくないSheetがある場合は当然コードも変わってきます。

※　保存時はマクロ有効ブックとして保存します。m(_ _)m

この回答へのお礼

tom04様
ありがとうございます。
折角のご回答ですが私VBAとかマクロが一切わからないのです。
出来るに越したことはないのですが。
今後、少しずつ勉強していくつもりです。
ありがとうございました。

お礼日時：2016/09/18 22:30

No.2 回答者： GooUserラック 回答日時： 2016/09/18 22:12

No.1 の補足

飛び飛び等でシートを複数選んだ場合の解除方法は、選択していないシートを選択すれば解除されます。