VBA - カスタムforループ

Question

あるシートから別のシートに特定のテーブルをコピーしたいと思います。これを行うために、私は次のコードを持っている：

Dim start As Long 
Dim eind As Long 
Dim output As Long 
Dim tbl As Range 
Dim dest As Range 

output = 5 

For start = 3 To 224 Step 13 
     end = start + 10 
     Set tbl = Sheets("Model").Range("C" & start & ":E" & end) 
     Set dest = Sheets("Sheet1").Range("B" & output).Resize(tbl.Rows.Count, tbl.Columns.Count) 
     dest.Value = tbl.Value 
     output = output + 16 
Next start 

しかし、このコードをコピーし、「モデル」に「シート1」からすべてのテーブル。名前はA、B、C、E、G、H、J、Lの名前のテーブルが必要です（名前はD2、D15、D28、D41などです）。

for-loopの前にこれらの特定のテーブルを定義し、これをループに組み込む方法はありますか？あるいは、これを行う別の方法がありますか？

多くの感謝！

Answer 1

私はあなたのコードでの計算を通じてつもりはない...

（私はミスアライメントがあると思います：あなたはFor start = 3 To 224 Step 13からループにしたい、しかし、あなたはD2、D15、D28で名前を確認したいです。用

For start = 3 To 224 Step 13 
    end = start + 10 

    Select Case Sheets("Model").Range("D" & start - 1) ' I have "start -1" to adjust to rows 2, 15, 28, etc. 

     ' copy only Tables with the following names in Column D... 
     Case "A", "B", "C", "E", "G", "H", "J", "L" 
      Set tbl = Sheets("Model").Range("C" & start & ":E" & end) 
      Set dest = Sheets("Sheet1").Range("B" & output).Resize(tbl.Rows.Count, tbl.Columns.Count) 
      dest.Value = tbl.Value 

    End Select 

    output = output + 16 
Next start