范围内特定列的总和

Question

我一直在尝试将某个范围的第6列相加。下面的代码在满足条件后将数据行拾取到一个范围内。从输出范围（Yrg）中，我需要获取列F的总和。

` With Fetch
   Application.ScreenUpdating = False
        For Each xRg In .Range("C3:Q" & lr)
            If xRg.Text = str Then
                If yRg Is Nothing Then
                    Set yRg = .Range("E" & xRg.Row).Resize(, 13)
                Else
                    Set yRg = Union(yRg, .Range("E" & xRg.Row).Resize(, 13))
                End If                            
            End If            
        Next xRg
        Application.ScreenUpdating = True
 End With`

当我尝试下面的代码时，它仅在F列的第一行显示该值

Application.Sum(Application.Index(yRg, 0, 6))

努力获取第6列中所有行的总和。