VBA怎么把一列数据中的正数改为负数

在VBA (Visual Basic for Applications) 中，你可以通过循环遍历一列数据并修改单元格的数值来实现这个需求。以下是一个简单的步骤：

1. **打开宏编辑器**：在Excel中按下 `Alt + F11` 键打开VBA编辑器。

2. **创建一个新的模块**：在左侧窗口中右键选择 "插入" -> "模块"，然后你会看到一个新的空白窗口。

3. **编写代码**：

Sub ConvertPositiveToNegative()
    Dim rng As Range
    ' 定义要处理的范围，例如A1:A100
    Set rng = Range("A1:A100") ' 根据实际需要替换为你的数据范围
    
    For Each cell In rng
        If cell.Value > 0 Then
            ' 如果单元格值大于0，则将其改为负数
            cell.Value = -cell.Value
        End If
    Next cell
End Sub

4. **保存并运行**：在代码窗口底部点击 "运行" 或者按 `F5` 来执行宏，所有正数会变为负数。

记得将上述代码中的 "A1:A100" 替换为你想要更改的列和行范围。