シートに関数を入れたい

質問

Ｅｘｃｅｌ2007でマクロ作成中の初心者です。
最後のシートの列に　　　　　　　Ｃ2　　　　　　　　　　　　Ｄ2　　　　　　　　　　Ｅ2　　　　　　　　　
　　　　　　　　　　　　　　＝'東京太郎'!$AS$2　　＝'横浜太郎'!$AS$2　＝'名古屋太郎'!$AS$2　

　　　　　　　　　　　　　　　　　　　Ｃ3　　　　　　　　　　　　Ｄ3　　　　　　　　　　Ｅ3　　　　　　　　　
　　　　　　　　　　　　　　＝'東京太郎'!$ＡＺ$8　　＝'横浜太郎'!$ＡＺ$8　＝'名古屋太郎'!$ＡＺ$8　

の関数がはいってます。一番左のシート名は東京太郎、次のシートは横浜太郎・・と続きます
そしてシートのセル値は　Ｃ列からはじめます。
今、シートが追加されたら、手入力で上の式をひとつひとつ、あたらしい列に書き込んでいます。
本当に面倒です。最初から入れておいて、シート名の文字列がどう変わっても、列にそのシートの
セルの値が表示されるようにしたいです。またシートが削除されても、シート順にセル表示したいです。なんだか説明がへたですけど、よろしくお願いします。どうかお助けください。

回答No.1

tom04 · ベストアンサー

こんばんは！
表示するSheetは必ずSheet見出しの最後のSheetですよね？

一例です。
標準モジュールに↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub 表示()
Dim j As Long, k As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets(Worksheets.Count)

With wS
j = .Cells(2, Columns.Count).End(xlToLeft).Column
If j > 2 Then
Range(.Cells(2, 3), .Cells(3, j)).ClearContents
End If
cnt = 2
For k = 1 To Worksheets.Count - 1
cnt = cnt + 1
.Cells(2, cnt) = Worksheets(k).Cells(2, "AS")
.Cells(3, cnt) = Worksheets(k).Cells(8, "AZ")
Next k
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

ありがとうございました。ご教示いただいたコードを参考に自分で加工してやってみます。

補足

すばやいご回答ありがとうございます。貴方様のコードまだ実行してないですが、たぶん思うとおりの、マクロ実行されるとおもいます。実はこのシートは４０枚前後あり、一枚のシートの30箇所のセルを、最後のシートの列に式を入れることになります。でも、シートの増減のたび、もしくは、ブックを開くたびに上のマクロを実行するため、時間がかかります。もしできるなら、最初から、すべての列に式を入れておきたいです。そしてシートが変わっても、最後のシートの関数どおりの値が表示されるようにしたいです。もし、それはできなければ、貴方様の作っていただいたコードを実行するつもりです。面倒かけますがよろしくお願いします。