我认为下面的代码/宏应该能达到你想要的效果。它的工作原理和评论中karma的描述一样，我认为你是想用IsNumeric()和一个while循环向上循环。

Sub iterate_up()

    Dim row
    Dim textcount
    textcount = 0
    
    If ActiveCell.Column = 1 Then 'Check that the selected cell is in column A
        row = ActiveCell.row
        
        While (Not (IsNumeric(Cells(row, 2).Value)) And row > 1)
            textcount = textcount + 1
            row = row - 1
        Wend

        Range("C1").Value = textcount

    End If
 
End Sub

目前，它不检查所选单元格是否为空，也不将空单元格视为包含文本。后者可以通过将while循环的条件更改为While ((Not (IsNumeric(Cells(row, 2).Value)) Or IsEmpty(Cells(row, 2).Value)) And row > 1)来实现。类似地，要检查所选单元格是否为空，if语句将为If (ActiveCell.Column = 1 And Not(IsEmpty(ActiveCell.Value))) Then。此外，我不知道结果应该如何返回，所以我就把它放进了C1细胞。我希望这就是，你要找的。
编辑：如果您想选择B列中包含第一个数值的单元格，则必须在End If之前添加Cells(row, 1).Select。