Excel / 全シートを参照する

Excelで全シートを参照する(串刺し計算)サンプル

Sub test()

   Dim ak As Long
   Dim ak_ As Long
   
   Dim sht As Object
   
   For Each sht In ThisWorkbook.Sheets
      ak_ = Range("'" & sht.Name & "'" & "!AK8").Value
      Debug.Print sht.Name & vbTab & ak_
      ak = ak + ak_
   Next
   
   MsgBox ak

End Sub