行をループしてセルの値を変数として格納し、別のセルに結果を返します。

Question

各行をスキャンして特定のセルを取り出し、変数として格納したいとします。私が行の最後に着くと、一連の数式とvlookupを実行したいと思います。私は式とvlookupsをすべてセットアップしましたが、私は各行をスキャンし、それらの式の結果を取り、別のセルに戻す必要があります。ここにコード例があります

Dim height As Double 
Dim weight As Double 
Dim gender As String 
Dim newWeight as Double 

'I'd like to set the loop here 
'for each row do this 
height = d2.value 
weight = f2.value 
gender = k2.value 

'then run through my equations 
If gender = "F" and weight < 20 Then 
newWeight = weight + 5 
ElseIf gender = "F" and weight > 20 Then 
newWeight = weight -2 
End If 

l2.value = newWeight.value 
'Then clear variables and run through the new row 

私の方程式はそれより少し複雑ですが、私はそれを開始すると思います。

**編集：私が使用しているシートを参照する必要がありますか？私は

Answer 1

私はあなたのコードを台無しにするつもりはないのですが、これはあなたが必要とする何をすべき、

Dim height As Double 
Dim weight As Double 
Dim gender As String 
Dim newWeight As Double 
Dim lastrow As Long 

lastrow = Cells(Rows.Count, 1).End(xlUp).row 

For i = 2 To lastrow 
    'I'd like to set the loop here 
    'for each row do this 
    height = CDbl(Range("D" & i).value) 
    weight = CDbl(Range("F" & i).value) 
    gender = Range("K" & i).value 

    'then run through my equations 
    If gender = "F" And weight < 20 Then 
    newWeight = weight + 5 
    ElseIf gender = "F" And weight > 20 Then 
    newWeight = weight - 2 
    End If 

    Range("I" & i).value = newWeight 
    'Then clear variables and run through the new row 
    newWeight = 0 
    height = 0 
    weight = 0 
    gender = 0 
Next 

Answer 2

を行うIを賭けます。また、何を把握する必要があり、コード

Sub temp() 

    Dim height As Double 
    Dim weight As Double 
    Dim gender As String 
    Dim newWeight As Double 

    Dim lastRow As Integer 
    lastRow = Range("C" & Rows.Count).End(xlUp).Row 

    For i = 2 To lastRow 
     'I'd like to set the loop here 
     'for each row do this 
     height = Range("D" & i).Value 
     weight = Range("F" & i).Value 
     gender = Range("K" & i).Value 

     'then run through my equations 
     If gender = "F" Then 
      If weight < 20 Then 
       newWeight = weight + 5 
      ElseIf weight > 20 Then 
       newWeight = weight - 2 
      End If 
     End If 

     Range("L" & i).Value = newWeight 
     'Then clear variables and run through the new row 
    Next i 

End Sub 

の下を参照してください。 weight = 20の場合に発生します。P