在VBA Excel中搜索非数字值

Question

我在Excel中使用VBA尝试编写一些宏，但是，我对该过程非常陌生。

目前，我正在尝试使用for循环在列中搜索非数字值。为此，我编写了以下内容：

rwcnt = WorksheetFunction.CountA(Range("A:A"))
Dim i As Integer

For i = 1 To rwcnt
    If Cells(i, 1).Value = Not IsNumeric Then
        Cells(i, 1).Select
        Range(Selection, Selection.End(xlDown)).Select
        Exit For
    End If

这返回一个错误，指出该参数不是可选的，并且突出显示IsNumeric。

我要完成的工作是搜索A列，然后选择标题外第一个包含非数字字符的单元格。另外，这正在搜索超过100K个单元，因此，如果没有一种强度较低的方法来执行此过程，建议也将是不错的。

任何帮助将不胜感激，再说一次，我对这些东西一无所知，因此，如果一切都不对，请随意说。

Answer 1

下面的代码应该工作正常，请注意我如何使用IsNumeric

Sub t()
rwcnt = WorksheetFunction.CountA(Range("A:A"))
Dim i As Integer

For i = 1 To rwcnt
    If Not (IsNumeric(Cells(i, 1).Value)) Then
        range(Cells(i, 1).address, Cells(i, 1).End(xlDown).address).Select
        Exit For
    End If
Next
End Sub

您也不需要所有的选择，上面的效果相同