excel 複数シートの集計、indirect

複数シートで集計をするのは色々めんどいが、ネットでいろいろ便利なものを見付けたので備忘録として掲載。まずはシート名を取得するマクロ。

Sub ListSheetsName()
Dim objSheet As Object Dim intLoop As Integer
intLoop = ActiveCell.Row
For Each objSheet In ActiveWorkbook.Sheets ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name intLoop = intLoop + 1 Next
End Sub

あと、indirectでは括弧が使えないので
=INDIRECT("'" & A1 & "'!B1")
のようにシングルクォーテーションで囲む必要がある。