エクセルのシートでセル幅のみの共有化？

質問

わかりにくい説明になるかもしれませんが
エクセルではシートを何枚も作れると思うのですが
そのシートの1枚を親シートとして使用し、それをコピーして何枚も子を作る場合です。
同じ表を使って表の中身のみの記述内容や数値を変更した資料をたくさん作る場合です。
この場合、親シートのセルの幅を変更するだけで
子のシートも全部同時に同様の幅に変更されるように
リンクすると言うかそういうのは出来ますか？
最初に1枚シートを作ってそれを大量にコピーしたシートを作るのではないです。
同じシートをコピーする方法はわかるのですが、既に大量に作ったシートの幅等の一発変換です。
表の形だけ親シートに子シートをリンクさせることは出来るのですか？
職場で皆で考えましたがわかりませんでした。

回答No.2

ringo_of_green · ベストアンサー

１．リンクさせたいシートを選択します。
　Ａ．個別に指定…それぞれのシートを指定します。
　　　「Ｃｔｒｌ」キーを押しながら、
　　　タブ（下部の「Ｓｈｅｅｔ１」とかある部分）をクリックします。
　　　リンクするシートそれぞれ指定して下さい。
　Ｂ．まとめて指定…連続した並びのシートを選択します。
　　「Ｓｈｉｆｔ」キーを押しながら、
　　最後のシートのタブ（下部の「Ｓｈｅｅｔ１」とかある部分）クリックをします。

２．１の処理を実行すると、指定した複数のシートのタブが白くなります。
　　つまり、リンクできる状態になります。
　　エクセルでは「作業グループ」と言っています。

３．この状態で、リンク対象になっているシート（どれでも可）でセル幅の変更を行なうと、
　　リンクした全てのシートで変更されます。

４．他のシートを見ることも出来ます。
　　リンク対象になっているシートを選ぶ限り、リンク状態のままです。

５．リンク状態を外したい時は、リンク対象以外のシートを指定するか、
　　タブの部分で右クリックすると出てくるメニューの「作業グループ解除」で、外れます。

解除の処理を忘れるとすべてのシートに同じデータが入ることになるので、要注意です！

回答No.1

dell_OK

マクロを使えばできます。

もっとよい方法があるかも知れませんが、
以下を参考にして、試してみてください。

Sub Macro1()
'ワークシートの繰り返し用
Dim w As Long
'カラムの繰り返し用
Dim c As Long

'２番目のワークシートから、最後のワークシートまで処理する
For w = 2 To Worksheets.Count
'１番目のカラムから、最後のカラムまで処理する
For c = 1 To Selection.SpecialCells(xlCellTypeLastCell).Column
'２番目以降のワークシートのカラム幅を
'１番目のワークシートのカラム幅に合わせる
Worksheets(w).Columns(c).ColumnWidth = Worksheets(1).Columns(c).ColumnWidth
Next
Next
End Sub