多条件下使用变量

donghua200

Sub NBV()

   Dim i As Integer

    bb = Cells(1, 2)

     For i = 2 To 15

      dd = Left(Cells(i, 1), 6)

        If dd = "bb" And Cells(i, 2) = "A" Then'多条件使用变量,即使条件成立也不运行下句,请高手指教(定量运行正常)

          Cells(1, 4) = Cells(i, 3) + vol

        End If

      Set vol = Cells(1, 4)

    Next i

End Sub

换句话说:如何在多条件下使用变量

老鬼

什么意思？