Excel関数で

質問

例：ファイル名 drinkで sheet名 coke coffee orange ・・・その他約３０sheetあり
各シートのG7セル(シート名と同じ)を新しいシート1のA1セルにcoke A2にcoffee A3にorangeと・・・
各シートのAE28セルを新しいシート1のB1セル～B30セルに手っ取り早くコピー出来る方法が知りたいのです。
コピペでは手間がかかりすぎて苦戦してます。マクロのスキルはないためそれ以外でお願いします。

回答No.1

mshr1962

始めのはマクロでないと出来ませんが後の方は可能です。
B1=INDIRECT("'"&A1&"'!AE28")
これでシート名A1のAE28セルを参照できます。

マクロの場合
Sub NAMESET()
Dim SHN As Object
For Each SHN In ActiveWorkbook.Sheets
If ActiveSheet.Name <> SHN.Name Then
i = i + 1
Cells(i, 1) = SHN.Range("G7")
Cells(i, 2) = SHN.Range("AE28")
End If
Next SHN
End Sub

補足

ありがとうございます。
まずINDIRECTですが=INDIRECT("'"&A1&"'!AE28")を３０までオートフィルすればOKですか？
マクロはコピーしてA1に貼り付ければＯＫですか？宜しくお願いします。