VBA excel計數器最大值

Question

我今天給你寫信，因爲我在計算給定年份的數量時遇到了問題。

這是什麼，我有一個例子：

我想最多12 QX/201X的是在過去的幾個月來總結在每行的列slidy年度的值我線。我在每個有「Qx/201x」的列的下面放一個「1」，但我只想保留最後一個值，並根據這個值對這些值求和。

對於如何完成這項工作，您是否可以使用VBA創建一個簡單的想法？

Answer 1

試試這個功能

Function SumIfColMatch(ByVal matchRow As Integer, ByVal matchString As String, ByVal sumRange As Range, ByVal maxToCount As Integer) 
    Dim dblTotal As Double 
    Dim lngCounter As Long 
    Dim sumCount As Integer 

    sumCount = 0 

    For lngCounter = sumRange.Cells.Count To 1 Step -1 
     If Cells(matchRow, lngCounter).Value Like matchString Then 
      dblTotal = dblTotal + sumRange(lngCounter).Value 
      sumCount = sumCount + 1 
      If sumCount >= maxToCount Then Exit For 
     End If 
    Next lngCounter 

    SumIfColMatch = dblTotal 

End Function 

In the formula cell use something like this 

    =SumIfColMatch(1,"Q*/201*",A3:DL3,12) 

它爲我見附件截圖