vbaで2回ループしていますか？

Question

私はSTPが SEZはSEZに落ちる必要があり、その中に工学分野の追加に伴いSTPシートに落ちてしなければならない ..私はすべてのような条件に基づいてループにしたい。ここ

Src Base June July 
    Eng STP 10 20 
    Sve STP 20 30 
    GMO SEZ 30 10 
    Eng STP 20 30 
    Sve SEZ 40 50 

、以下のような優れたていますそれぞれの列

とともにシート、私はここに、それぞれの場合でループすることができません..

私の裁判は、以下のようなものだった。..

With Worksheets("Mktg.Effort") 
    For lrow = 2 To .Cells(.Rows.Count, "R").End(xlUp).Row 
    Select Case CStr(Cells(lrow, "R").Value) 
    Case "STP" 
    Worksheets("Mktg.Effort").Rows(lrow).Activate 
    For lroww = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row 
    Select Case CStr(Cells(lroww, "A").Value) 
    Case "engg" 
     ' adding all eng cols 
     ' and this data should fall in STP sheet. 

ここでは、基本（STP/SEZ）条件に関係なくすべてのEngフィールドを取得しています。 両方の条件でループしたい 1. STP/SEZが かどうかを確認する必要があります。2. Eng/Sve/gmoが であるかどうかをチェックし、それに応じてデータを自動化する必要があります。

ENyのヘルプをお願いします。私はここで打ちのめされている。

予想される出力：

 Src Base June July 
    Eng STP 30 50 ' added all ENG into one row 
    Sve STP 20 30 

Answer 1

代わりの二倍あなたをループループは一度、その後、以下のような条件の何かを確認することがあります。

With Worksheets("Mktg.Effort") 
    For lrow = 2 To .Cells(.Rows.Count, "R").End(xlUp).Row 
    Select Case CStr(Cells(lrow, "R").Value) 
    Case "STP" 
     If CStr(Cells(lrow, "A").Value) = "Eng" Then 
      ' adding all eng cols 
      ' and this data should fall in STP sheet. 
     ElseIf CStr(Cells(lrow, "A").Value) = "SVE" Then 
      '....and so on