vba - 在 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

而且你不需要所有的选择，上面实现了相同的结果