VBA：特定の文字列で行を記述する方法

Question

こんにちは私は列 "B"の特定の文字列を識別するループを作成しようとしていると、同じ行の列 "D"の値をSUMします。これまでのところ私は "現金"を特定することができましたが、今はSAME行の列 "D"をどのように記述し、それを集計するのか分かりません。助けてください！

以下は、このループのために私がこれまでに得たものです。あなたは確かに何かない可能性があり

Dim CD As Long 
Dim text As String 
Dim Z As Long 

CD = 0 

For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row 
    text = Range("B" & Z).Value 
    If Left(text, 4) = "Cash" Then 
     Sum.... 

Answer 1

で行うことができ、これは次のようになりますあなたが探しているもの：

Sub calculateSum() 

    Dim CD As Long 
    Dim text As String 
    Dim Z As Long 

    'Create a variable to store the sum and set its value to 0. 
    Dim sum As Double 
    sum = 0 

    CD = 0 

    For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row 
    text = Range("B" & Z).Value 
     If Left(text, 4) = "Cash" Then 
      'Increase the sum by the value stored in column D on the same row. 
      sum = sum + Range("D" & Z).Value 
     End If 
    Next Z 

    'Display the final result (sum). 
    MsgBox "Sum: " & sum 

End Sub 

Answer 2

：

For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row 
    text = cells(Z,2).Value 
    If Left(text, 4) = "Cash" Then 
     Sum.... Zum = Zum + cells(Z,4).value 

しかし、計算はあなたが提供したコードを次の簡単なワークシートの数式

=SUMIF(B:B,"cash*",D:D)