Excel VBA宏开发需求：清理非整数单元格并设置条件格式

以下是针对F列混合数据场景的优化代码，能精准保留整数内容、清空非整数（包括文本、带小数的数字），并对剩余整数中大于0.8的单元格设置指定格式：

Sub CleanAndFormatData()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 指定要处理的工作表，默认当前激活表，可自行修改
    Set ws = ThisWorkbook.ActiveSheet
    ' 获取F列最后一行数据，最多处理200行
    lastRow = Application.Min(ws.Cells(ws.Rows.Count, "F").End(xlUp).Row, 200)
    ' 定义处理范围，假设表头在F1，从F2开始处理
    Set rng = ws.Range("F2:F" & lastRow)
    
    For Each cell In rng
        ' 先清除单元格原有格式，避免残留影响
        cell.ClearFormats
        
        ' 空单元格直接跳过，不做处理
        If IsEmpty(cell.Value) Then GoTo NextCell
        
        ' 分情况判断：先确认是数字类型，再判断是否为整数
        If IsNumeric(cell.Value) Then
            ' 转换为数值后，对比其与整数部分是否相等（小数部分为0即为整数）
            If CDbl(cell.Value) = Int(CDbl(cell.Value)) Then
                ' 是整数，再判断是否大于0.8，满足则设置格式
                If CDbl(cell.Value) > 0.8 Then
                    cell.Interior.Color = RGB(255, 0, 0)
                    cell.Font.Color = RGB(255, 255, 255)
                End If
            Else
                ' 带小数的数字，清空内容
                cell.ClearContents
            End If
        Else
            ' 非数字类型（比如文本、特殊字符），清空内容
            cell.ClearContents
        End If
        
NextCell:
    Next cell
End Sub

关键细节说明 #

• 整数判断逻辑：先通过IsNumeric排除文本类型，再用CDbl(cell.Value) = Int(CDbl(cell.Value))确认数字的小数部分为0，避免把"123"这类文本型数字误判为整数，同时精准过滤123.5这类带小数的数值。
• 空单元格处理：直接跳过，保留原空状态，无需额外操作。
• 行数限制：用Application.Min确保处理行数不超过200行，避免遍历无效区域。
• 格式重置：每次处理前先清除单元格格式，防止之前的格式设置干扰新结果。

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器。
2. 右键点击当前工作簿，选择「插入」→「模块」。
3. 将上述代码粘贴到模块窗口中。
4. 按下F5运行宏，或回到Excel界面通过「开发工具」→「宏」执行。

内容的提问来源于stack exchange，提问作者Sophia Threadgall