ブック内のすべてのシートを通過してテーブルを反復する

Question

Excelブックに複数のシートがあり、各シートにテーブルがあります。私はオブジェクト内のすべてのシートを選択したいので、setオブジェクトを1つずつ選択することでそれらを繰り返し処理できます。

どうすればいいですか？

Answer 1

これはあなたが始める必要があります。

Dim ws As Worksheet 
Dim tbl As ListObject 

For Each ws In ThisWorkbook.Worksheets 
    For Each tbl In ws.ListObjects 
     Debug.Print ws.Name, tbl.Name, tbl.Range.Address 
    Next tbl 
Next ws 

を私は主題をカバーthis pageとthis oneを発見しました。

---

編集：あなたは、単純なRangesについて話すことTablesを使用しているように見えるとして、ここではRange指向の代替です：

Dim ws As Worksheet 

For Each ws In ThisWorkbook.Worksheets 
    Debug.Print ws.Name, Range("A1").CurrentRegion.Address 
Next ws 

Answer 2

Sub LoopThroughAllTablesinWorkbook() 

    Dim tbl As ListObject 
    Dim sht As Worksheet 

    For Each sht In ThisWorkbook.Worksheets 
     For Each tbl In sht.ListObjects 

      'Your code here... 

     Next tbl 
    Next sht 

End Sub