看起来你是要给每一列里的"o"按顺序递增计数，遇到字母（比如A/B/C/D）或者空单元格就重置计数，对吧？我之前帮朋友处理过类似的需求，给你分享两个可行的方案，一个用VBA代码（适合批量处理），一个用Excel公式（不用写代码）：

方案一：Excel VBA 代码实现 #

这个方法适合数据量比较大的情况，运行一次就能自动处理所有列，完全符合你要的循环逻辑：

Sub CountOsInColumns()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim currentCount As Integer
    
    ' 这里用当前激活的工作表，你可以改成具体的工作表名比如Sheet1
    Set ws = ActiveSheet
    ' 获取数据的最后一行和最后一列，避免遍历空单元格浪费时间
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 逐个列处理
    For j = 1 To lastCol
        currentCount = 0 ' 每列开始前重置计数
        ' 遍历当前列的每一行
        For i = 1 To lastRow
            ' 先判断当前单元格是不是"o"（兼容小写的o，不需要的话可以去掉UCase）
            If UCase(ws.Cells(i, j).Value) = "O" Then
                currentCount = currentCount + 1
                ws.Cells(i, j).Value = currentCount
            Else
                ' 如果不是o，不管是空还是字母，都重置计数，方便下一个o从1开始
                currentCount = 0
                ' 空单元格和字母保持原样，这里不用额外处理
            End If
        Next i
    Next j
End Sub

代码说明： #

• 自动识别你的数据范围，不用手动选单元格
• 每列独立计数，遇到非"o"的内容就重置，下一个"o"从1开始
• 兼容小写的"o"，如果你的数据只有大写可以把UCase去掉

方案二：Excel 公式实现（不用写代码） #

如果不想用VBA，用公式也能搞定，分两步：

1. 插入一个辅助列（比如F列），F1输入0，F2开始输入公式：

   =IF(A2="o",F1+1,0)
   

   然后下拉填充到所有行
2. 在新列（比如E列）对应A列的单元格输入：

   =IF(A2="o",F2,A2)
   

   同样下拉填充，这样E列就是你要的结果啦

如果不想用辅助列，也可以用数组公式（输入后按Ctrl+Shift+Enter生效）：

=IF(A1="o",MAX(IF($A$1:A1<>"o",ROW($A$1:A1),0))+1,A1)

不过数组公式在数据量大的时候可能会卡，优先推荐辅助列的方法。

备注：内容来源于stack exchange，提问作者jwell123