VBA根据两个条件计算行之间的行数

Sub CalculateRowDifference()
    Dim ws As Worksheet
    Dim rowCount As Long
    Dim startRow As Long
    Dim endRow As Long
    Dim condition1 As String
    Dim condition2 As String
    Dim rowDiff As Long
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取行数
    rowCount = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 设置条件1和条件2
    condition1 = "条件1"
    condition2 = "条件2"
    
    ' 初始化行差
    rowDiff = 0
    
    ' 循环遍历每一行
    For i = 1 To rowCount
        ' 判断条件1和条件2是否满足
        If ws.Cells(i, 1).Value = condition1 And ws.Cells(i, 2).Value = condition2 Then
            ' 如果满足条件，则计算行差
            startRow = i
            endRow = i + rowDiff
            rowDiff = endRow - startRow
        End If
    Next i
    
    ' 输出行差
    MsgBox "行差为：" & rowDiff
End Sub