如何在vba的情况下得到行号？

Question

我有下面的情况，我需要特殊条件的行号。

    Dim sve_rc as Integer
    sve_rc = 1 ' to get Rowcount 
    With Worksheets("Mktg.Effort")
    For lrow = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
    Select Case CStr(Cells(lrow, "A").Value)
           Case "engg"
           ' do somwthing

           Case "SvE"  
           sve_aug = Cells(lrow, "AF").Value
           sve_rc = ActiveCell.Row  ' here I am getting rows from 1st colum I need only rows where case is "SvE"
           sum = sum + Range("AF" & sve_rc)

           Case "GMO"
            ' do something
    End Select
    Next lrow
    End With

我的Excel如下，

       engg 
       SvE 
       SvE 
       GMO 
       engg 
       GMO 

因此，如果我检查条件SvE，我必须得到行号为2，但我从1开始。 无法在这里构建逻辑......请帮助。

Answer 1

使用以下代码激活您的行：Worksheets("Mktg.Effort").Rows(lrow).Activate。现在您可以使用ActiveCell.Row