如何检查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.

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