vba - 如何检查Excel电子表格中的单元格是否包含数字

Question

我有一列地址，我必须找到那些不包含街道号码的地址。不幸的是，地址是由不同的用户输入的，并且它们不遵循相同的模式，因此街道类型、街道名称、郊区的顺序不同，我无法使用 LEFT、RIGHT 或 MID 等函数来检查特定字符是否是数字。该列如下所示:

    10 Willsons Drive, Manhattan
    Epping, 23 Wet Rd
    Longsdale St, Kingsbury
    11 Link Crt, Pakenham

是否有 Excel 或 VBA 函数可以告诉我单元格/字符串是否包含数字？

Answer 1

将其放入模块中，然后在工作表中，可能是其旁边的一列，放入公式 =HaveNumbers(A2) 并检查您是否想要这样(True/False)。您可以将其更改为“返回字符串”。返回 TRUE/FALSE。

Function HaveNumbers(oRng As Range) As Boolean
     Dim bHaveNumbers As Boolean, i As Long        
     bHaveNumbers = False
     For i = 1 To Len(oRng.Text)
         If IsNumeric(Mid(oRng.Text, i, 1)) Then
             bHaveNumbers = True
             Exit For
         End If
     Next
     HaveNumbers = bHaveNumbers
End Function