如何使用Excel VBA根据单元格正负值判断并填充对应内容

批量处理整行数据（宏代码） #

如果需要一次性处理一行的所有数值单元格，直接运行以下宏即可：

Sub FillIncreaseDecrease()
    Dim rng As Range
    Dim cell As Range
    ' 替换成你实际的数值所在行范围（示例是A2到B2）
    Set rng = ThisWorkbook.ActiveSheet.Range("A2:B2")
    
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            If cell.Value > 0 Then
                ' 填充到当前单元格上方的单元格
                cell.Offset(-1, 0).Value = "Increase"
            ElseIf cell.Value < 0 Then
                cell.Offset(-1, 0).Value = "Decrease"
            Else
                ' 数值为0时的处理，可改为"None"或留空
                cell.Offset(-1, 0).Value = ""
            End If
        End If
    Next cell
End Sub

操作步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将代码粘贴到模块窗口，修改Range("A2:B2")为你的数值实际所在范围
4. 按下F5运行代码，或者回到Excel界面，通过「开发工具」→「宏」选择执行

自定义函数（公式调用） #

如果想用公式的方式灵活填充，可创建自定义函数：

Function IncDec(cell As Range) As String
    If cell.Value > 0 Then
        IncDec = "Increase"
    ElseIf cell.Value < 0 Then
        IncDec = "Decrease"
    Else
        IncDec = "" ' 数值为0时返回空，可按需修改
    End If
End Function

使用方法： #

1. 按上述步骤插入模块并粘贴代码
2. 在需要填充的单元格（比如A1）输入=IncDec(A2)，按回车即可
3. 拖动单元格填充柄，批量应用到其他需要的位置

注意：不管数值是百分比还是常规数字，VBA都会识别其实际数值（比如178%对应1.78，-43%对应-0.43），判断逻辑不受单元格格式影响。

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