在该工作表模块中写入如下代码即可实现在B列选择支出时,对应的F列单元格数值转换为负值Private Sub Worksheet_Change(ByVal Target As Range) If Me.Cells(Target.Row, 2) = "支出" Then Me.Cells(Target.Row, 6) = -Abs(Me.Cells(Target.Row, 6)) End IfEnd Sub