【エクセル】セルの他シートへのコピー＆ナンバリング

質問

職場にエクセルを使える人がいなくて困っています。よろしくお願いします。

１）シート１の１セル（例えばＡ１）の文字を、同じブック内の他のシート（シート２、３、４、５・・・のＡ１）に、コピーする方法。

２）シート１のセル（例えばＡ１）の１から始まり、シート２のＡ１に２、シート３のＡ１に３、シート４のＡ１に４・・・・とナンバリングをする方法。

回答No.2

imogasi

（１）Shiftキーを押しつつ最初（左）と最後（右）のシートタブをクリックすると、作業グループになる。
そこでA1にデータを入れると各シートのA1に同じ値が入る
（２）連番
標準モジュールに（ツールーマクローVBE－挿入ー標準モジュールの画面に貼り付け）
Function sn()
sn = ActiveSheet.Index
End Function
と入れておく。（ユーザー関数の定義・作成。）
ーー
各シートのセルで
=sn()
といれる。

回答No.1

keithin

＞コピーする

方法１：
シート名タブを右クリックして全て選択する
または
コントロールキーやシフトキーを押しながら，シートを選択する
（こういう操作で複数のシートを選択することを「作業グループにする」と言います）

A1セルにデータを記入し，ふつーにEnterする

シート名タブを右クリックして作業グループを解除する，
若しくは
作業グループに含めなかったシートを開いて作業グループを解除する

方法２：
シート１のＡ１をコピーする
シート２を開き,更にシート３以降と共に作業グループにする
シート２のＡ１に貼り付ける
作業グループを解除する

＞ナンバリング

通常の操作で，ご相談のことが簡単にうまくできる方法はありません。
色々出来ることはありますが，手を動かして１，２，３とシートを開きながら記入していった方が結局簡単です。

【面倒な手管の例】
方法１：
ブックを一度保存する（必須）
Sheet1,Sheet2，Sheet3…を作業グループにする
A1セルに
=REPLACE(CELL("filename",A1),1,FIND("Sheet",CELL("filename",A1))+4,"")*1
のように式を入れる

方法２：
ALT+F11を押す
現れた画面でCtrl+Gを押す
現れたウィンドウに
for each h in worksheets : h.range("A1") = h.index : next
と記入し，Enterする
ファイルメニューからエクセルに戻る

方法３：
シートを１まいずつめくっては
=一つ前のシート！A1+1
という数式を，ひとつずつ入れていく