Excel 2007データコレクション

Question

a約150以上のワークシートを含むExcel 2007ブックがあり、すべてのワークシート内の同じ同じセルからデータを選択し、データを含むセル（すべてテキスト）にコピーしたい;列に記載されたデータを含む別のワークシートに追加します。

Answer 1

あなたは、次のVBAを使用することができます。

それは、ブック内の同じワークシートだ場合だ

Dim WriteCell as Range 
Set WriteCell = Sheets("New Sheet").Range("A2") 

Dim MySheet as Worksheet 
For Each MySheet In ThisWorkbook.Worksheets 
    If MySheet.Range("B2").Value <> "" Then 
     WriteCell.Value = MySheet.Range("B2").Value 
     WriteCell.Offset(0, -1).Value = MySheet.Name 
     Set WriteCell = WriteCell.Offset(1,0) 
    End If 
Next 

。これはちょうど、ワークシートのすべてを反復処理、その値をテストし、列としてワークシート名とワークシートとセルの値を生成します

Workbooks.Open File:= "C:\MyBook.xlsx" 
For Each MySheet in ActiveWorkbook.Worksheets 

：あなたは、それはいくつかの他のワークブックになりたい場合は、これにFor Each行を置き換えます。