如何为从1到组结束的每个组创建系列

Question

我在excel中有一个数据，如下所示

if(playRange < contentLength - 1) {
    ajaxMediaGET("path-to-server", loadNextRange(playRange), true, undefined);
} else {
    sourceBuffer.addEventListener('updateend', function(){
        mediaSource.endOfStream();
    });
}

如何只给出12个以下的系列

month
1        
4
12
12
12
12
6
8
7
12
12
12
12
12
12
7
10
12
12
12

提前致谢

Answer 1

在您放置数据的工作表代码模块中尝试以下代码。我假设A列月，B列系列。

Sub Checking_Value()
Dim i As Long, LastRow As Long, n As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
n = 0

For i = 1 To LastRow
    If Cells(i, 1).Value = 12 Then
        n = n + 1
        Cells(i, 2) = n
    Else
        n = 0
    End If
Next i

End Sub