投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第４章 - For Each構文 セルのコレクション

受講生さんの投稿

(投稿ID: 4405)

こんにちわ。

行の項目（費用）と列の項目（拠点）がクロスするセルを累計シートに転記し12か月分集計したいのですが、複数シートをfor each 〜nextで作ろうとすると、うまくできません。
1か月分の転記は下記でできましたので、それを12か月分集計したいです。for each 構文はいわゆる複数シートの串刺しには向いていないのでしょうか。
またfor each だと各セルごとに12回繰り返し、また次のセルを12回というようにスピードが遅い気がしますので、1カ月分を集計して、次の1カ月の項目を順に集計するというような法方はありますか。
Sub rui()
　　Dim retu
　　Dim gyo
    　　　For retu = 6 To 100
  　　　　　  For gyo = 7 To 25
      　　　　　  If Worksheets("rui").Cells(1, retu).Value = Worksheets("PL1月").Cells(1, retu).Value Then
           
           　　　　　　If Worksheets("rui").Cells(gyo, 1).Value = Worksheets("PL1月").Cells(gyo, 1).Value Then
             　　　　　　 Worksheets("rui").Cells(gyo, retu).Value = Worksheets("PL1月").Cells(gyo, retu).Value
          　　　　　　 End If
       　　　　　  End If
     　　　　Next
    　　Next

    
End Sub

2019/02/24 01:15