[[20091119133954]]　『複数シートのシート名と複数の特定セルの内容をマ』（つるかめ）　ページの最後に飛ぶ

『複数シートのシート名と複数の特定セルの内容をマクロで一つのシートに』（つるかめ）

ブック内に同一フォーマットのシートが（300枚以内）あります。
データは列がＡ～Ｅ、行が50行の中に入っています。
すべてのシート名と特定セルの内容のリストを一つのシートに作りたいのです。

「全文検索」を探していたところ、ブックの一番左側のシートのC1D1に
シート名とセルA2の内容を抽出するマクロはありましたが、
私、エクセルもマクロも超初心者ゆえ、抽出する特定セルが複数の場合、
どう加工したらよいかがわかりません。

検索したマクロは次のようなモノです。

 Sub シート名一覧()
 Dim Wsn As String
 Dim i As Integer
    Application.ScreenUpdating = False
    If Sheets.Count = 1 Then Exit Sub
        Sheets(1).Range("C1", Range("D65336").End(xlUp)).ClearContents
            For i = 2 To Sheets.Count
                Wsn = Sheets(i).Name
                Sheets(1).Cells(i - 1, 3).Value = Wsn
                Sheets(1).Cells(i - 1, 4).Value = Sheets(i).Range("A2").Value
            Next
    Application.ScreenUpdating = True
 End Sub

どなたかお助けください。

ちなみにExcel2002、WindowsXPです。
よろしくお願いいたします。

 特定のセル、複数のセル、では回答者もどうすればよいのかわからないですよ
 (JUDUS)

            For i = 2 To Sheets.Count
                Wsn = Sheets(i).Name
                Sheets(1).Cells(i - 1, 3).Value = Wsn
                Sheets(1).Cells(i - 1, 4).Value = Sheets(i).Range("A2").Value
                書き込みたいセル１ = 特定のセル１
                書き込みたいセル２ = 特定のセル２
                書き込みたいセル３ = 特定のセル３
                書き込みたいセル４ = 特定のセル４
                書き込みたいセル５ = 特定のセル５
                書き込みたいセル６ = 特定のセル６
                書き込みたいセル７ = 特定のセル７
                書き込みたいセル８ = 特定のセル８
            Next
 BJ

  BJ様　ありがとうございます。自分なりに試してみたところ、うまくいきました。大感謝です！

　JUDUS様　わかりづらい説明で申し訳ありませんでした。具体的に書かなければならないのですね。大変勉強になりました。以後気をつけます。

コメント返信：

[ 一覧(最新更新順) ]

[[20091119133954]] 『複数シートのシート名と複数の特定セルの内容をマ』（つるかめ） ページの最後に飛ぶ

[[20091119133954]]　『複数シートのシート名と複数の特定セルの内容をマ』（つるかめ）　ページの最後に飛ぶ