VBA如何快速识别Excel单元格中的文本数字

Excel中一种非常特殊的数字,这些数字看似数字,其实是文本格式(下文简称为文本数字),在单元格的左上角会有一个绿色小三角作为标志,如B1:B3单元格。

在编程时为什么需要区分普通数字和文本数字呢?先来看以下【立即窗口】种的测试代码。A1和B1单元格内容看似相同,但是测试代码的结果却完全不同。

  • 单元格A1为普通数字,加号之后的"0"被转换为数字零,然后进行加法运算。

  • 单元格B1为文本数字,加号作为字符串连接运算符,合并两个字符串。

    ?[A1]+"0"
    1
    ?[B1]+"0"
    10

VBA代码并无法识别单元格坐上角的绿色三角标志,或者说Range对象并没有一个属性值对应这个标志,但是可用通过自定义函数来区分这两种数字格式。

Function IsNumberStoredAsText(Rng As Range) As Variant
    If Not IsNumeric(Rng) Then
        IsNumberStoredAsText = vbNullChar
        Exit Function
    End If
    If Rng.Value + "0" = Rng.Value Then
        IsNumberStoredAsText = vbNo
    Else
        IsNumberStoredAsText = vbYes
    End If
End Function

【代码解析】

第2行代码判断单元格内容是否为数字,如果不是数字则第3行代码返回vbNullChar

第6行代码利用+ "0"运算来判别单元格中数字格式,如果运算结果与单元格的值相等,第7行代码返回vbNo,即单元格内容为普通数字,如果不等,第9行代码返回vbYes,即单元格内容为文本数字。


测试代码如下。

Sub DEMO()
    Dim c As Range, sMsg As String
    For Each c In Range("A1:B4").Cells
        Select Case IsNumberStoredAsText(c)
        Case Is = vbNullChar
            sMsg = "非数字"
        Case Is = vbYes
            sMsg = "文本数字"
        Case Is = vbNo
            sMsg = "普通数字"
        End Select
        Debug.Print "单元格[" & c.Address & "]:" & sMsg
    Next
End Sub

【代码解析】

第3~13行代码循环遍历单元格。

第4~11行代根据自定义函数返回值提供不同的内容。

第12行代码在【立即窗口】中输入结果,如下所示。

单元格[$A$1]:普通数字
单元格[$B$1]:文本数字
单元格[$A$2]:普通数字
单元格[$B$2]:文本数字
单元格[$A$3]:普通数字
单元格[$B$3]:文本数字
单元格[$A$4]:非数字
单元格[$B$4]:非数字
相关推荐
liangbm32 个月前
MATLAB系列05:自定义函数
开发语言·笔记·matlab·教程·函数·自定义函数·按值传递
liangbm32 个月前
MATLAB系列07:输入/输入函数
开发语言·数据库·笔记·matlab·函数·自定义函数·matlab函数
elirlove13 个月前
推荐一个非常实用的在线工具网:115工具网----一个提供高效、实用、方便的在线工具集合网站
经验分享·json·文本数字·格式化转换·加解密编码·对照列表·计算工具
tRNA做科研3 个月前
R语言function快速掌握-自定义函数
开发语言·r语言·自定义函数·组学·计算生物学
maizeman1264 个月前
R语言统计分析——自编函数
r语言·自定义函数·自编函数
全栈小56 个月前
【Sql Server】随机查询一条表记录,并重重温回顾下自定义函数的封装和使用
数据库·sql server·自定义函数·随机查询
aaasssdddd961 年前
带返回值的递归转为非递归
数据结构·递归·自定义函数·运行栈
aaasssdddd961 年前
加入自定义函数共享output数组功能
数据结构·数组·语法树·自定义函数·运行栈