Excel VBA如何判断K列单元格是否为数值（含空白单元格）

你当前的代码逻辑错误，条件Len(Cells(i, 11)) = 0 And IsEmpty(Cells(i, 11)) = False是在筛选「看似空白但实际存在内容（如空字符串、不可见字符）」的单元格，和你要找数值单元格的需求完全不符。以下是几种可行的修正方案：

方案1：结合Trim与IsNumeric判断 #

先去除单元格内容的首尾空格，再判断是否为非空且是数值，能覆盖大部分常规场景：

Sub mysub()
    Dim lastRow As Long
    '获取K列最后一行的行号
    lastRow = Cells(Rows.Count, 11).End(xlUp).Row
    
    For i = 24 To lastRow
        '判断单元格非空且内容为数值
        If Trim(Cells(i, 11).Value) <> "" And IsNumeric(Cells(i, 11).Value) Then
            '在这里编写你的计算代码
            '示例：Cells(i, "L").Value = Cells(i, 11).Value * 2
        End If
    Next i
End Sub

方案2：用VarType精准判断数值类型 #

如果需要严格识别单元格的数值数据类型（排除文本格式的数值），可以用VarType函数，直接匹配数值类型的常量：

Sub mysub()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 11).End(xlUp).Row
    
    For i = 24 To lastRow
        '匹配所有数值类型：整数、长整数、单精度、双精度、货币型
        Select Case VarType(Cells(i, 11).Value)
            Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
                '编写你的计算代码
                '示例：Cells(i, "L").Value = Cells(i, 11).Value * 0.8
        End Select
    Next i
End Sub

方案3：兼容文本格式的数值 #

如果你的K列存在文本格式的数值（比如单元格格式为文本但内容是数字），可以先尝试转换再判断：

Sub mysub()
    Dim cellVal As Variant
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 11).End(xlUp).Row
    
    For i = 24 To lastRow
        cellVal = Trim(Cells(i, 11).Value)
        If cellVal <> "" Then
            '验证是否可转换为数值
            If IsNumeric(cellVal) Then
                '转换为数值后执行计算
                '示例：Cells(i, "L").Value = CDbl(cellVal) + 10
            End If
        End If
    Next i
End Sub

内容的提问来源于stack exchange，提问作者Irene Ortiz de Guzmán