VBA excel计数器最大

我今天给你写信，因为我在计算我订购数量的某一年的价值时遇到了问题。

这是我所拥有的一个例子：

我想总结每行的下滑年份的值，最多是我行上最后几个月的12 Qx / 201x。 我在每一个有“Qx / 201x”的列下面都写了一个“1”，但是我只想保留最后一个值，并按照这个值来求和。

你可以通过VBA简单介绍一下如何完成这个任务吗？

Answer 1

试试这个function

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) 

它适用于我看附加的截图