获取某个范围内前3个数字的单元格引用(Excel VBA)

Sub GetTop3Cells()
    Dim rng As Range
    Dim cell As Range
    Dim count As Integer
    
    '设置要查找的范围
    Set rng = Range("A1:A10")
    
    count = 0
    
    '遍历范围内的每个单元格
    For Each cell In rng
        '判断单元格的值是否为数字
        If IsNumeric(cell.Value) Then
            '找到数字后，输出其引用并增加计数
            Debug.Print cell.Address
            count = count + 1
        End If
        
        '当计数达到3时，退出循环
        If count = 3 Then Exit For
    Next cell
End Sub