Excel VBA循环未按条件返回对应结果及行移动需求求助

需求说明 #

• 逐行检查表格EXCEPTIONS的Hours列：
  • 若Hours > AvailHours，对应行Reason列赋值为Not enough hours earned
  • 若Hours < 4，对应行Reason列赋值为Pay for 4 hours
  • 若Hours >= 4，对应行Reason列赋值为Pay for 8 hours
• 将所有Reason为Not enough hours earned的行移至表格底部

现有问题代码 #

'Check if enough Avail Sick Time Hours and Round Hours Worked
Range("EXCEPTIONS[Hours]").Select

For Each cell In Range("EXCEPTIONS[Hours]")

    If Value < "EXCEPTIONS[AvailHours]" Then
        Range("EXCEPTIONS[Reason]").Value = "Not enough hours earned"
    
    ElseIf Value < 4 Then
            Range("EXCEPTIONS[Reason]").Value = "Pay for 4 hours"
    
    ElseIf Value >= 4 Then
            Range("EXCEPTIONS[Reason]").Value = "Pay for 8 hours"

    End If

Next cell

问题分析 #

1. 未指定单元格对象：直接使用Value未关联当前循环的cell，VBA无法识别要引用的单元格值
2. 错误的单元格引用："EXCEPTIONS[AvailHours]"是字符串，不是当前行的AvailHours单元格，无法完成数值比较
3. 批量赋值错误：Range("EXCEPTIONS[Reason]").Value会修改整个Reason列，而非当前行的目标单元格
4. 缺失行移动逻辑：原代码完全未实现将指定行移至表格底部的需求

修正后的代码 #

Sub ProcessExceptions()
    Dim tbl As ListObject
    Dim i As Long
    Dim lastRow As Long
    
    '获取结构化表格对象，替换为你的实际工作表名称
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("EXCEPTIONS")
    
    '从下往上循环行，避免移动行后索引混乱
    lastRow = tbl.ListRows.Count
    For i = lastRow To 1 Step -1
        Dim hoursVal As Double
        Dim availHoursVal As Double
        
        '读取当前行的Hours和AvailHours数值
        hoursVal = tbl.ListColumns("Hours").DataBodyRange(i).Value
        availHoursVal = tbl.ListColumns("AvailHours").DataBodyRange(i).Value
        
        '条件判断并赋值Reason
        If hoursVal > availHoursVal Then
            tbl.ListColumns("Reason").DataBodyRange(i).Value = "Not enough hours earned"
            '将当前行移至表格底部
            tbl.ListRows(i).Range.Cut
            tbl.ListRows.Add.Range.PasteSpecial xlPasteAll
            Application.CutCopyMode = False
        ElseIf hoursVal < 4 Then
            tbl.ListColumns("Reason").DataBodyRange(i).Value = "Pay for 4 hours"
        ElseIf hoursVal >= 4 Then
            tbl.ListColumns("Reason").DataBodyRange(i).Value = "Pay for 8 hours"
        End If
    Next i
End Sub

代码说明 #

• 使用ListObject操作结构化表格，无需依赖列的位置，逻辑更稳定
• 从表格最后一行向上循环，避免移动行后导致后续行索引错位
• 明确读取当前行的目标数值，确保比较逻辑准确
• 单独赋值当前行的Reason单元格，避免批量修改整列
• 对符合条件的行执行剪切-粘贴操作，移至表格底部，最后清除剪贴板状态

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