基于数值范围的Excel VBA批量分类需求：用循环替代IF公式

实现步骤与代码 #

1. 统计有效数值行数：定位目标列最后一个非空单元格，动态获取实际需要处理的总行数
2. 循环批量分配标签：遍历每行数值，按预设范围判断后分配对应标签，写入相邻单元格

以下是完整VBA代码：

Sub AssignCategoryLabels()
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As Double
    Dim category As String
    
    ' 获取A列最后一个有数值的行号（假设数据从A2开始，A1为表头）
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    ' 循环处理每行数据
    For i = 2 To lastRow
        cellValue = Range("A" & i).Value
        
        ' 根据数值范围分配标签（可按需调整条件和标签）
        If cellValue > 90 Then
            category = "A"
        ElseIf cellValue > 60 Then
            category = "B"
        Else
            category = "C"
        End If
        
        ' 将标签写入相邻的B列单元格
        Range("B" & i).Value = category
    Next i
End Sub

代码说明 #

• lastRow = Range("A" & Rows.Count).End(xlUp).Row：从列底向上查找第一个非空单元格，自动适配行数动态变化的场景
• 循环变量i从2开始（若数据无表头可改为1），覆盖所有有效数据行
• 条件判断逻辑匹配原Excel公式逻辑，将High/Medium/Low替换为A/B/C，若需新增D标签，可添加额外判断（例如ElseIf cellValue > 30 Then category = "D"）
• Range("B" & i).Value = category：将结果写入当前行的右侧相邻单元格，如需写入其他列，修改列标识即可（如改为"C"）

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