使用过滤器动态迭代矩阵

Question

我有一个包含许多行的矩阵，这些行具有不同的行长度。正如您在下图所示，第3行在T列结束，而第8行在L列结束。我要做的是以队列名称“Taxi”循环遍历矩阵的每一行并总结每一行条目。

我怎样才能做到这一点？我面临的主要问题是迭代遍历行并动态查找行的结尾以及如何通过fleetname预先过滤表。

Answer 1

代码可以满足您的需求

Dim sht As Worksheet
Dim LastColumn As Long
Dim LastRow as Long
Dim i as Long 
Dim dblSum as Double 'your sum

Set sht = ThisWorkbook.ActiveSheet

With sht
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For i=2 to LastRow
        If .Cells(i,1).Value = "Taxi" Then
           LastColumn = .Cells(i, .Columns.Count).End(xlToLeft).Column
           dblSum = Application.Sum(.Range(.Cells(i, 2), .Cells(i, LastColumn)))
        End if
    Next i
End with

Set sht = Nothing